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ABSTBACT 

Presented are abstracts of 700 coapater prograas in 
■serine science. The programs .listed are categorised ander a wide 
range of headings vhich inclade physical oceanography, cheaistry, 
coastal and estaarine processes, biology,., pollaticn, air-sea 
interaction and heat badget, navigation and charting, carve fitting, 
aiid applied aa,theaatics. The introdaction explains vhexe prograas are 
available and hov to obtain thea. It also explains the procedates 
involved for sabaitting a prograa. For each prpgraa« the titles, 
language, and hardvare are given along with a brief description of 
what the prograa cA&^ do., «ho wrote it, and whete it is available. A 
list of other N£f€ional Oceanogr&phic Data Center (NODC) prograas, a 
general index, a language index, a hardware index,* an institution 
index, and a Federal; i«f or aation processing standard software saaaary 
also included. jBB) y 
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INTRODUCTION , ' 

■ ^ .' ■-• ■ •■ ' 

Since the iMt edition if "Computer Programs in Oceanography" (compiled by Cljoyd Dinger") was 
published in 1970, the National Oceanographic* Data Center (NODC) has Received many requests y» 
from sctdntists throughout the international oceanographi6 commimity'^or updated information 
oiT available programs. T^e present edition Is in answer to this' demand. Abstracts of seven 
hundred programs, have been supplied by nearly eighty institutions in ten coxmtries (See table, 
pages vii-viii) . * - . ♦ 

T!bo3e familiar with the previous edition will note several changeis. Four new chapters have 
been added — iS.sheries, Engineering, Coastal* and Estuarine Processes; Pollution — and the 
title hasr been Changed, to reflect a broader interest than was implTed in the term "oceanography" 
In addition to the institution, language, and hardware 'indexes, a general index has been pro- 
vided, allowin^.the reader to sefurch by paramet^, method, author, etc. And, most l^nportanUy, 
the numbej: of aAstraets has neeirly ^doubled. / 

Most of the programs listed herein are not available from the NODC. If the NODC holds a copy 
of the program) it will be so noted at the end of the. abstract, and the form will be described 
(listing, deck, etc.)? copies of these materials ccin be supplied. .Requests which involve small 
ambunts o^ materials and labor will be cinswered free of charge; ^or Icirger requests, an itemized 
cost estimate will be provided, and work will begin affer funds or a purchfitse order have been 
received. (Contact the Oceanographic Services Branchr telephone (202) 634-"M390 

Many programs available in published form can be obtained from the foi:^owing sources, as noted 
in the abstracts: ' * * 

y ^ ■ ' ' ■ 

National Technical Ipibrmation Service (NTIS) 
U. S; Department of Coiperce' * 

5285 Port Royal Rpad . ^ 

Springfield, VA 22161 Telephone (703) 321-8543 

, Assistant Public Printer 

. , U'. S. Gov^ernment Printing Office (GPO) 

^ Washington, DC 20402 Telephone (202) 783-3238 

* ' • 

When order jjig from NTIS or GPO, include the order ntonber of the document, as well as payment in 
the form or cKeck or mo^ey order . Telephone orders cire accepted by both agencies if the pur*- 
chaser has a deposit account. 

Inclusion of information on a particular program does not guarantee that the program will always 
be available . When the originator feels that a program has become obsolete , support for that 
parogram often is discontinued.^ Every effort has been made to exclude all programs which defin- 
itely are not available to emyone.* About one hundred programs from the previous edition have 
been retained because the NODC holds a reproducible, documented copy* or the originators have 
stated 'that they still support the programs. ^Judging from the requests received at NODC, many 
of these older programs are still of interest to tiie scientific community. 

The NODC cannot assume responsibility for the accuracy of the abstracts, except those originated 
hy^ our organization, or for the proper functioning o*f the programs. \Most of these, pro^afas will 
not work, without modification, on a system other than the system for which they were designed. 

Reports descril^ing program libraries are available from several other federal ligencies. "Scien- 
tific Program Library Abstracts" describes programs in the following categories x. Regression and 
curv^-fit, statistical analysis, matrix operations, simultaneous equations, numerical analysis, 
approximation of special function, oj^ferations research, computer simulation, time series ^analy- 
sis, sorts, applications progreuns, and miscellemeous . ^ These programs were 'either written for or 
euiapted to run on a Burroughs B5500 computer containing 32, 6K 48-bit words of magnetic core 
storage,^ magnetic disk mass storage, and seven -cliannel tape drives. Contacts 

Bxureau of Mines, Division of ADP 

U. S. Department of the Interior ^ 

P. 0. v3ox 25407, Federal Center • 
, Denver, CO 80225 



"Computer Software fcp: Spatial pata Handling" is scheduleS for publication in the^ summer of 
1976; •address inquiries to the Cotnmission on Geographical Data Sensing arid Processing of the ^ 
► International Geographical Union, 226 O'Conner Street, Ottawa, Ontarll), Canada. 

Several general-purpose programs are documented in "Computing Technology Center Numerical 
Analysis Library," report number CTC-39, available from NTIS for $12.00.paper cof>y, $2.25 
microfiche. The Computing Technology Center is operated b^ 'the Nuclear Division of Union 
Carbide Corporation at the Oak Ridge National Laboratory in Oak Ridge, Tennessee. 

"Argonne* Code Center: Compilation of Program Abstracts, report number ANL*-7411, supplement 
8, may also be obtained from NTIS, for $13,60 paper copy, $4.25 microfiche. The 'Argonne 
Code Center is located at the' Argonne National Laboratory, 9700 South Cass Aventie, Argonne, 
IL 60439. Programs maintained by the Center are <Jhief ly intended for^ use in nuclear reactor , 
research. Included in the Environmental and Earth Science category are programs for the 
following: ^vironmental impact studies, geology, seismology, geophj^sics, hydrology and 
ground water studies,., b^oenvironmental syst,ems analyses, meteorological calculations 
relating to the atmosphere and its phenomena, studies of airborne particulate matter, 
climatology, etc. ' . ♦ 

- . • ( 

Persons or organizations wishing^ contribute program infonaation for use*in future editions 
and for reference in answering r^juests are asked to use standard form 185, Federal ' Information 
Processing standard Software Summary ^ several copies of the form are printed as the last pages 
in this book, beginning on page 226. ' 

The technical assistance oF the following NODC J>ersonnel is. acknowledged , with appreciation: 
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Albert M., Bargeskr 
Dean Dale 

George F. Heimerdinger 
Nelson C. Ross 
John Sylves 
Robert W. Jaber 
Rosa T. Washington 
Judith Yavnec 
Thomas Yowell 
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Contributors to "Computer Programs in Marine Science" * 



i 

Natioi&al Oceanic and Atmospheric 

Administration • 
U.'S. Department of Commerce 


U. S. Department of Defense 


Other Federal Ag^ciea ^ ^ 


Environmental Data Service: • 

National Oceanographic Data Center 
National Geophysical ^nd Solar- 
Terrestrial Data Center 
Center for Experimentf Design and * 
Data Analysis 
National,, Environmental Satellite' 
Service 

National Ocean Survey ^ ^ 

9 

National Weather Service: 

techniques Development Laboratory 

Environmental Research Laboratories : 
Pacific Marine Environmental 

I^borator^^ 
Atlantic Ocennographic and 
Meteorological Lab orator tea 

National Marine Fisheries Service: 
^ Soi^thvest Fisheries Center: 
La Jolla ^l^b oratory 

' Honolulu Laboratory 

'Southeast Fisheries Center 

i 


Department of the Army: 

Coastal Engineering Research Center 

Department of the Navy: ^ 
Civil Engineering Laboratory 

(Port Hueneme, CA) 
Naval Postgraduate School 

(Monterey > CA) 
Fleet Numerical Weather Central 

(Monterey, CA) 
Naval Undersea Research and 
* Development Center (3an Diego, CA) 
Naval Electronics Laboratory ^ 

(San Diego, CA) ^ ' ^ ^ 
.Naval Undersea Center QPaaadena, CA) 
\ Naval Underwater Systems Center 

(New London, CT, and Newport, RI) 
Naval Surface Weapons Center 

(Silver SprJjig, M0) 
Naval Research Laboratory 

(Washington, DC) 
Fleet Weather Facility 

(Suit land, MD) 
^aval Oceanographic Office 

(Washington, DC)' 
Defense Mapping Agency Hydrographlc 

Center (Washington, DC) 
Naval Academy (Annapolis, MD) 


U, S. Det>artm^t of the Interior: 
Geolpglcal Survey: 

National Cente^c O^eaton, VA) 
Woods Hole, MA 

Menlo Par^, CA , ' * 
Corpus Christie TX 
y. S« Department of Transportation: 
vGoaa^ Guard: 

Oceanographic Unlt^ (Kashlngton, DCi^ 
Ice Patrol (Hew York, NY)^^,^^^— — ^ 

Envlxomnental Protection^,^ency: 
Gulf Ereeze, FL 

C / ; 
/ .. • ' 


ERLC . - V • (' ^' • ^ 





' - * ^ ^ \ 1 ^-T V. -"•.•-^"l 

C6ntrtbutora to "Con^puter Programs in Hariae Science'.' ' ' 






U,S« AccMiemlcVResearch Institutions 


OtKsr U.S. Contributors 


Foreign and International 

Contributors ' * 




• 

• 

< 


Columbia University: 
Hudson Laboratories . 
Lamotit-Dolierty Geological 
Observatorjr 
Coinaell University 
• University of Delaware 
University ' of Hawaii 
University of Illinois 
' Johns Hoi^ns University 
Massachusetts Institute of 

Technology 
University of Maine 
^ University of Maryland 
University .of Miami 
University ^f Michigan 
North Carolina State University 
Oregon State University 
Unjtversity of Pittsburgh 
University of Rhode Island , 
% R^ce University ' * 
Scripps Institution of 


Los ^geles City Sanitation 
Department 

California Department of ^ 
Water Resources 

" Arthur. D. Little, Inc. \ 

. Rand Corporation ^' 


c 

. Fisheries Research, Board of Canada - ^ . 
Mariae Environmental Data Service COmada) 
Bedford Institute of .Oceanography » CCanada) 

^ National Institute of Oceanography (En^lanrf) 
Inati^tute of Oceanographic Sciences (Wales) ' 

^ University of Bergea QJorvay) ' ^ . 

BCO Nacional de Dados Oceanograf icos (Brazil) 

BNDO, Centre National pour 'I'Exploitation , 
des Oceans CPriance) 

^ « 
' Centro Argentine de Datoa Oceanograf icos 
University of Puerto Rico ^ 
.UniveraidAd N. A. de Mexico 






Oceanography 
Southampton. College ' 
University of Texas 
Texas, A&M University 
Virginia Polytechrflc Institute 

and State University 
University of Washington 
Williams College 
University of Wisconsin 
Woods Hole Oceanographic 

Institution 




• Inter-American Tropical Tuna Commission ^ * 
• • \ 

/ « ^ X 
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PHYSICAL OCEANOGRAPHY 



0^ ' 



Transport Computations from 
Atmospheric Pressure 



Un?;uage - FORTRAN I and ;v 
Hardware - IBM 1620/lfiM 1130 



Computed the steady^state mass transport In the ocean from atmospherlp pressure data,' according 
to a system of analysis designed by Dr. N,P, Fofonoff, Input: Sea level pressure cards from 
the extended forecast division of the U.S. National Weather Service, . Output: Meridional and 
zonal components of Ekman. transport » total mer Id loa^^transport. Integrated transport, and Inte 
grated geostrophlc transport (mean monthly valuerf for |^e specified grid of alternate five de^- 
grees of latitude and longitude In the northern hWlspheW. FORTRAN I program Is listed In 
FRB manuscript series report (Ocean, and Llmnol,) 163^ by Dr, Charlotte Froese, 1963, 



Pacific Biological Station 
Fisheries Research Board of Canada 
P. 0/Box 100\ 
Nanalmo> b, C, V9R 5K6 I 




Copy on 
IBM 16^0 oJl 



at NODC (FORTRAN I version^ fot 
above report) 



STD Computations 
STP02 



Unguige*- FORTRAN IV 
Hardware - IBM 1130 . 



Computes derived o,p0«mographlc quantities fox Blsset-Berman casts, Prlntei3rt)utput : Pres- 
sure, tempera^re,. salinity , depth, slgma-t, specific volunTe anomaly, potential' temperature and 
density, dynamic height, potential energy anomaly, oxygen content; sound velocity optional, 
FRB Manuscript Report (unpubllshe4) No, 1071, by (^,A, Collins, R,L,K, Tripe, arid sIk, Wong, Dec, 



1969, 



\ 



Pacific Biological Station 
Fisheries Research Board of Canada 
P, 0» Box 100 
Nanaimo/ B. C, V9R 5K6 




Hydrographlc Cast Computations 
HYDRO 



Copy on *f lie at NODC (above report, 



Language - FORTRAN IV 
Hardware - IBM 1130 



Computeif derived oceanographlc quantities for hydrographlc casts. Printed output; Pressure, ^ 
temperature, salinity, depth, sigma-t, specific volume anomaly, potential temperature anfi den- 
sity, dynamic .height, potential energy anomaly, oxygen content; sound' velocity optional, FRB ^ 
Manuscript Reporf (unpublished) No. 1071, by C,A, Collins, R,L,K, Tripe, and S,K, Woig, Dec, 
19§9, ' , 



Pcicific Biological Station 
Fisheries Rasearch Board of Canada 
P, 0. Box, 100 

Nanalmo/ B. C, V9R 5K6 ' • 



Copy on file* at NODC 



(above report) 

/ ^ 



Digitizes STD Data 
DEEP 



Language - FORTRAN 

Hardware - Hewlett-Packard 2115A 



Digitizes sallnlty-temperature-depth data on line, using time as a criterion for selecting 
points. Input are frequencies, from the Blsset-Berman STD system and station heading data 
through a teletype. Output, on paper tape, has station identification fields, time Ijjiterval 
between data points, and the STD data, .Technical report No, 152 (unpublished manuscript), by 
A, Huyer and C,A. Collins, Dec, 1969, $ee program WET, next page.) . , 



Pacific Biological Stolon , 
Fisheries Research Efoard of Canada 
P, 0, Box 100 

Narialmo, B.' C. V9R 5K6 ^ 



Copy on *flle at NODC (above report) 



STD Pipocesslng . * Languages - FORTRAN * 

WfcT ^ ^ * s ^ Hardware - Hewlett-Padcard 2115A 

For shipboard processing of dlgltlzedt sallnlty-temperaturc-depth data. Inpu»t is ori paper tape 
(output from program DEEP). Output: The following parameters at standard pressutes temper* 
ature, salinity, slgma-t, d^lta-d, specific gravity anomaly, specific volume anomaly, geopoten- 
tjlal anomaly» and* potential energy. Technical Report No. 152 (unpubllrdhed manuscript) ^ by A. 
Buyer and C.A. ColllAs, Dec. 1969. - 

Pacific Biological station , - Copy on file at NODC (above report^ 

Fisheries Research Board of Canada , ' * ^ 

P. 0. Box -ICO ^ * 

Nanaimc^ B. C. V9R 5K6 * ' " . 

S^a^lpn Data Retrieval ^ I^nguajge - ALGOL . ' 

HYDROSEARCH ' ' , Hardware - Burroughs 6700 

Provides easy. Inexpensive retrieval of hydrographlc station data, wlth^ selection criteria ex- 
prcvssed In terms ^of*Uat a. proper ties . Output: Summary listing,, detailed listing, cards-, *tape, 
or dlpk file. The program can be run either in batch mode or interactively; users can be Tocal 
,^r remote via dial-uj),- ARPi^ET or FTS^. yser^s Guide available. ^ * 

\ ' _ ♦ * ' ^ . % ' , , 

Ed Coughran Available from originator only ' ^ 

University of California, San Diego ^ • • ."a 

P.O. Box i09 jj ' " . . • ' " , 

La Jolla, OA 92037 Telephone (714) .452-4050 



»STD Data Processing Language - FORTRAN IV 

Hardware - tDC 3300 / 

Processes sallnlty-temperature-depth recorcjied in , the field. BCF Special Sicientific Report-Fish- 
eries No. 588.) "Processing of Digital Oata Logger STD^Tape^s at the Scrlpp^ institution of ^ 
Oceanography ai^ the Bureau of Commercial Fisheries, La Jt)lla, California/* by* Dr. Japes h. 
Jones, June 1969. " • ) 

^\ ' ^ 

Oceanic Research Division Copy ^on file at NOEFC j^above report) - ^ 

Scrlpps Institution of Oceanography 

P.O. Box 109 . ' 

* U Jolla, CA 92037 - * ' . 

' , . / . ' ^ ^ , , , 

Salinity Anomaly / Language - FORpAN II 

' ISALBP ' ' - ^ Hardware - CDC 3100 , 

Calculates the salinity ^omaly from a 'standard T/S or Theta/S curve for North Atlantic 'Central 
wate^ developed by L.V. Worthlngton. The results are output on the line printer. Author - 'A.B. 
Grant (Ju^ 1968) . ' ' * ^ , " 

Director ' Available from originator only ' ' ^ , ^ 

Bodfoi^ Institute of Oceanography " • ' 
P. 0. Box 1006 ^ , , ' ^ 

Dartmouth, N. S. B2y 4A2 ' ' ^ / , ♦ > 

Oxygeii SatJfation, 9xygen Anomaly* Language s. FORTRAN II* 

ISATBP \ 6 Hardware - CDC (3100 " , . 

^Calculates the percentage of oxygen saturation in seawater, according to tables and formulae 
by Montgomery (1967), as well as an oxygen anomaly on a sl^?ma-t|)purface,' ficcording, to a tabu- 
lated curve /&y Richards aSH Redfleld (1955). The results ar^ output .on the line printer^ sta* 
tion by s£dtion. Author - AjB, Grant (June 1968). ' ' ' ' 
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Dlreoto): \ . ' 

Bedford Institute of pceemography 

P, O: Box^ 1006 

Dartmouth^ K. S. B2y '4A2 ' 



» Available from originator only 



Plot*^Thefa-S Curves 



Language - ^FORTRAN II 

Hardware ^ CDC S-lOO/PDP-S/CalComp Plotter 



Plo):s potential temperature vs, salinity. Input' on cards. Output:' Printed ^listing and 
punched pap0r tape. Station plot use^ a PDP^8 computer, papfer tape reader, knd CalComp Plot- 
ter; Author - R, Relnlger, , ^ ' * 

" Director y ^ Availably from originator only ' ); 

Bedford Institute of Oceanography ^ 
P, 0, Box 1006 
Dartmouth rN,' S, ri2y 4A2 



/ 



Pl^ts Station Positions 



Language - FORTRAN II 

Hardware - CDC H00/fI(P-8/CalComp Plotter 



Plots cruise station positions on Mercator projection and writes in statlola number, "PLOTL" 
t>lottlng routine used with PDP-8 and fialComp plotter. Author - R, -Relnlger (Sept, 1968), 

Director - Available* ^rom originator only 

Bedford' Ins.titute of Oceanography ' ' , - ' ' 

P, O.-Box 1006 ' 
Dartmouth, N., S, B2y 4A2 . 



Nutrient ^ncent rat ions 
PEAKS 



Language - FORTRAN II 
Hardware - CDC^^flSO 



Reduces a s6t of discretely sampled voltages from t*he Technicon AutoAnalyzer to a set of peak 
heights and thence to a set of nutrient concentrations. Input: Magnetic tape produced by a 
Techal* Digitizer and Kennedy Incremental Recorder; card deck containing identifiers for 'ill sam- 
ples and standards. Output; Tables of peak heights and of derived nutrient olfndentrations, . 
^Up to 8 parameters and 400 samples can be accomodated per run, ^ ^ 



John L. Barron 

Bedford Institute of Oceanogr'aphy 
P, 0. Box 1006 ^ 
Dartmouth, N. S, B2y 4A2 



Available from originator .only 



Telephone (902) A26-36/6 



STD Tables and Plots 
STD 



Language - F^TRAN IV 
? Hardware ;;s4|^100A/Di8k/ CalComp 
, - ' o^ional 




Reduces data from Guildline STD and Hewlett Packard data logger to tables of salinlT^temper- 
^ ature-depth information and prepares it for plotting. The equation giving sallAlty as a func- 
tion of conductivity r^tio, temperature, and pressure is due toDr, Andrew Bennett, 



John L, Barron ^ 

Bedford Institute of Oceanography 

P, o7 Box 1006^ 

Dartmouth, N, S. B2y 4A2 



Available from originator only 



Telephone (902) 426-3676 
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Consistency of Physical atlH Chemical Data Language - COBOL and FORTRAN subroutines 
C 18 A 18 X ' Hardware - IBM 360-50/48K/D^sk/2 tape units 

Performs consistency check of physical and ches^lcal data obtained during oceanographlc cruises. 
Input^t Disk pack with recorded and sorted data, parameter card Indicating whether, the Inptit 
corresponds to physical jor chemical data. Output: Listing of Inconsistent data. . 

C^pltan de Fragata Nestor Available from originator only 

* Lopez AmbroS^lonl ' f 

Centro Argent Ino de Datos Oceanograf Icos . n 
Avetvlda Montes de Oca 2124 ' ' 

Buenos Aires, Republics Argentina Telephone 21-0061 , 

Calculation of Thermometric VaJLues Language - COBOL and FORTRAN subroutines 

C 18 A 23' X " ' ' Hardware - IBM 360-50/58K/Dlsk/2 tape units 

Calculates thermometric depth and corrected temperatures. Input: Disk with physical dat^ and 
calibration table of reversing* thermometers. Output: Listing of evaluated and accepted physi- 
cal, data. . * \ 

* ' »> 

1 

Capltan de Fragata Nestor Availably from originator only , ' 

Lopez Ambroslonl . ' ' / 

« Centro Argentlno de Datos Oceanograf Icog 
Avenlda Montes de Oca 2124 * 

Buenos Aires, Republic^ Argentina Telephone 21-0061 



Station Data System Final Values , Language - COBOL and FORTRAN subroutines 

C 18 A 32 X FQ ' Hardware - IBM 360-50/64K/pisk/2 tape units 

Interpolates temperature, salinity, and oxygen at standard depths; calculates slgma-t and sound 
velocity at observed and standard depths; also calculates specific volume anomaly and dynamic 
depth anomaly at ^^andard depths. Input: Disk pack wlt|i accepted prln^ry data tecori^. Out- 
put: Listing of ^observed and computjed values at observed and standard depths* 

Capltan de Fragata Nestor^ Available from originator pnl# 

Lopez "Ambroslonl 
Centro Argentlno de Datos Oceanogra(lcos 
, Ayenlda Montes de Oca 21^4 , %^ ' 

Buenos Ai^res, R^ublljpa Argentina Telephone 21-^0061 



/ 

Dally* 



lly*Seawater Observktlons Language - FORTRAN IV 

. ^ Hardware - CDC CYBER 74 

.Input: Dally observations of temperature and salinity. Output: ^(1) Quarterly statistics, (2) 
annual statistics, (3) listing of seven-day normally weighted means for one year, tfini (4) I^lot 
&f normally weighted means for one year. Author - H. Somers. Early version In FORTRAN II-D 
Ijt^^ IBM 1620. . ' - ' 

Marine Environmental .Data Service' Available from originator only 
580 Booth Street 

Ottawa/ Ont. KlA i)H3 • , Telephone (613) ' 995-2011 



Data Managemdrl^ System for Physical 

and Chemical Data 
OCEANS V ^ 



Language - COBOL, FORTRAN, i^L/l» machine lang. 
Hardware - CDC 6400 under SCOPE 3.3, 125K octal 

words/IBM ^60-85 under MVT, 200K ' \ 

decimal bytes 



The OCEANS V system Is designed to make available any physical, chemical, or meteorological 
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data collected as manual recordings or analog traces. TWfe system Is divided into a number of 
modules and presently processes data collected using Nansen bottles and mechanical bathythermo- 
graphs/ There are three stages to the system: (1) edit and quality control of newly collected 
data» C2) addition of these data to existing historical data, and (3) retrieval/report from 
these historical dat£^. 



D. Branch 

Marine Environmental Data Service 
580 Booth Street 
Ottawa/ Ont. KIA 0H3 



Available from originator only 



Telephone (613) 995-2011 



Mass Transport and Velocities 
GEOMASS 



Language - FORTRAN II 
Hardware - PDF 8 E/12K 



Calculates ^velocities ^t standard depths between two stations relative to deepest common depth; 
also calculates trapezoidally mass transport between successive depths and culumative mass 
transport from surface. Assumes deepest common depth is level of no motion. Author - C« Feter 
Duncan* 



Donald K. Atwood 
Marine Sciences Department 
'University ^of Fuerto Rico 
Mayaguez, FR 00708 



Available from originator only 



Telephone (809) 892-2482 



Station Data 
TWIRP 



^nguage 
Hardware 



FORTRAN IV 
FDF 10 



Interpolates oceanographic data; calculates sigma-t, dyndmic depth anoi;?aly, , potential tempera- 
ture, and delta-t. Input: Observed thermomet^c depths, temperature, salinity, and chemistry. 
Output: Temperature, salinity, sigma-t ,« potential temperature, delta^t at observed depths and 
all of these plus dynamic height anomaly interpolated to standard depths. Author - C. Feter 
Duncan. 



Donald K. Atwood 
Marine Sciences Department 
University of Puerto Rico 
Mayaguez, FR 00708 



Available from originator only 



Telephone (809) 892-2A82 



Thermometer Correction, Thermometric Depth 
6IESE 04 



Language FORTRAN IV 
Hardware - FDF 10 



Corrects thermometers "and calculates the'rmometric depth, as per formulae by Keyte, Input: 
Thermometer'Hiumber, uncorrected reading, auxiliary thermometer reading, data, cruise number, 
station number, wire out. Output: Corrected temperatures, corrected unproteeted thermometer 
readings, and thermometric depth. Author - Mary West. *^ 



Donald K. Atwood 
Marine Sciences Department 
University of Puerto Rico 
Mayaguez, FR 00708 



Available from originator only 



Telephone' (809) 892-2A82 



Oceanography Station Computer Program 



Unguage - FORTRAN IV 

Hardware - Burroughs 6700/2125 words 



Processes observed station data to obtain interpolated values of t^perature, salinity, oxygen, 
specific volume anomaly, dynamic depth, sigma-t, and sound velocity. The three- point Ugrange 
interpolation .equation and the Wilson sound velocity formula are used in the computations : J 
Running time is two seconds per station. * c , ' 



Angel Alatorre 
Instltuto Geoflslca 
thilversldad N»A. de Mexico 
Cludad Unlv«r8ltarla « 
Mexico 20, D.F. 



gopy on file at NODC, 



Telephone 548-65-00 , ext. 537 



Flexible System for Biological » Physical, 
and Cnemlcal- Data. ^ 

SEDHYP (System d* Exploitation des Donnees 
en Hydrologle Profonde) « 



Language - FORTRAN IV 

Hardware - XDS Sigma 7/40K 32 bit .wjrds with 
overlay 



A very flexible system of about 5,000 cards which computes. Interpolates, lists, and plots 
physical, chemical, a^d biological parameters.', Input Includes: List of the parameters to be 
listed, computed. Interpolated, plotted, and copied on files; method of computation and Inter- 
polation; name of the parameter to be used as "lnterpolater";\llst of the Interpolation J.evels,; 
^"^'Tformat of the processed data. Output: Xlstlngs of the observe4> computer, or Interpolated 
I parameters; plots of one parameter versus another parameter with all the curves on the same 
graph, or by groups of N curves on the same graph; copy of the values of one parameter on a 
working file for further use by other programs. The options, input on cards, are analysed and 
controlled; each station Is stored Jbn "common" area; then parameters ^e computed and Interpo- 
. lated. * Files In a new format (FICPAR) are created; each file bourns all the values of all 
.'b^-^^tAe stations for one parameter. The plot Is realized from two flfcs of, the FICPAR type. Docu- 
mentation: Presentation de SEDHYP, Dec. 1973; also. Catalogues dis methodes de calcul, 4*ln- 
terpolatlon et de ^reduction, Dec. 1973. 



Mr. Stanislas, BNDO 

Centre National pour 1* Exploitation 

des Oceans 
Bolte Postale 337 
29273 Brest Cedex, France 



Available from originator only 



Telephone 80.46.50, telex. 



94-627 



Subroutines for Physical, Chemical and Language - FORTRAN IV ^ ' • 

Biological Parameters Hardware - XDS Sigma J- i 

004 SAL, C44 TETA, C 46 SIGM Z, etc. ^ ' ' ^ \ 

\ ' ' . ^ ' 

Subroutines cpmpute the following parameters: Depth, pressure, salinity, pot&tlal tempera- 
ture, slgma-o, oxygen saturation percent, slgma-t, delta-st, pote^itlal slgma^ alph^, delta-al- 
pha, slgma-stp, nitrate, saturated oxygen, apparent oxygen utilization, soimd velocity, dynamic 
depth, potential energy anomaly, salinity or temperature flux, Valsala frequency, ^nput: 
Valhe of all parameters to be used In the computations and the catalog Identification number of 
the chosen method. Do.cumentatlon; /'Catalogue des mathodes de calcul des parameters physiques, 
chlmlques et blologlques," Dec. 1973. • ^ / ' 

'.^ Mr. Stanislas, BNDO « Available from orl^nator only ^ 

Centre National pour 1* Exploitation 

des Oceans ' ^ 
Bolte Postale 337 ' ' ' 

29273 Brest Cedex, France ^elephohe 80.46,50,. telex 94-627 



Interpolation Subroiitlnes 
vINTERPl, INTERP2, etc. 



Language —FORTRAll IV 
Hardware - XDS Sigma 7 



Subroutines Interpolate the values of a parameter at different levels; for each subroutine, the 
method Is different: spline function, polynomial Interpolation,' linear Interpolation, La- 
grange polynomial Interpolation. Inp^^t: The values of the parameter to be Interpolated, the 
corresponding values of the parai^eter to be used as "Interpolater" (e.g., depth), list of the* 
levels ^f the "Interpolater" for which Interpolation Is asked, the number of points to be used. 



Documentation: "Catalogue des methodes d* In terpolatlon," Dec. 1973. 
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Mr* Stanislas » BNDO 

Centre Natlcfnal pour I'Exploltatlon 

des Oceans ' . 
Bolte Postale 337 ( 
29273 ^Br est pedex, France \ 



Available from originator only 



Telephone 80,46,;50, telex 94-627 



Processes STD and CTD Data - ^ Language' - FORTRAN IV , 

SEDSTD (Systeme d' Exploitation des Hardware ^ XPS Sigma 7/25K words i • 

DONNEES STD, CTD) 

The system- Includes programs to copy the raw data from paper tape onto magne^^c tape, to pro- 
duce validated data from the raw data using calibration Information, and to process the vali- 
dated dafa*. It Is possible to reprocess the statl6ns from raw data or validated data on mag- 
netic tape". Option Information to be supplied Includes: Identification number of the stations 
to be processed, whether the data are raw or validated, list of the depth levels to be listed, 
• and scale of the parameters to b^ plowed. Output: Listings of depth or pressure, tempera- 
ture, ^salinity (observed ^r computed ^from conductivity), oxygen, oxygen saturation percent, 
slgma-t, potential temperature, potential slgma, delta-alpha, and delta-d for eaph stolon; 
plots of temperature, salinity, oxygen and slgma-t vs, depth, and temperature vs, salinity^ for 
each station; magnetlc^ape files of rav and validated data* Documentation: Pfeaeutatlop de 
SEDSTD, Dec. 1973. 



/ 



Mr. Stanislas, BNDO 

Centre National pour 'I'Exploltatlon 

des Oceans 
Bolte Postal 337 ^ ^ ' 
29273 Brest Cedex, France *, 



Available from originator oply 



Telephone 80.46.50, telex 94-627- 



Reads, Calptllates, Interpolates Station Da'ta 
CAPRICORN/ 



Language - FORTRAN IV 

Hardware - IBM .360-65/320^ bytes 



« 

Reads oceano^raphlc station data from card^ or NODC formatted 120-character-per-record tape. 
If desired. It can edit the NODC tape and/or calculate and Interpolate oceanographlc parameters 
for each station or calculate and Interpolate variables at specified slgma theta surfaces or 
potential temperatures. (See subroutines F3, SECPG, EDIT, and PLTEDT^ 



Ruth McMath 

Department of Oceanography 
Texas A-JM University 
College Station, TX 77843 



Available from orlg'lnator only 



Telephone (713) 845-7432 



Station Data Calculations 
F3 



Language 
Hardware 



FORTRAN IV ^ 
IBM 360-65' 



This subroutine takes as Input, through. Its common blocks, the observed values for depth ^tem^^ 
perature, salinity, and. If available, oxygen, phosphate, silicate, nitrate, and nitrite. It 
then interpolates salinity and temperature to, standard depths, using either a linear means ' or ^ 
by weighting two Lagranglan three-point polynomials (depending oil wheth^er there are three or 
four properly distributed data points). The subroutine calculates the fbllowln^ for both tjie 
observed and standard depths: pote4itlal temperature, thermosteriK^aripdaly , Specific volume 
anomaly, slgma-t, *the slgma values for depths of 0^ 1000, 2000, 3000, 4000. and 5000 meters. . ^ 
Computations of sound velocity, dynamic helght^-wsfid transport functions are made for standard 
depths only. The computation for stability Is made at the observed depths only. The values of 
oxygen, phosphate, silicate, nitrate, and nitrite are simply pointed dut. If ^ th^y are^read. 
Subroutine F3 Is a composite of programs written by. various authors: The original "F" program 
was written by Kilmer and Durbury for the IBM 650. This program was expanded by Nowlln and 
McLellan for the IBM 7094 and again bv Eieuterlus for the^ IBM 360. The Scrlpps SNARKI program 
provided the bftsls for much of the present version. (See p'rogram CAPRICORN.) 
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Rutjh >lcMath /Sy-f 
Department of^l^craifpgraphy 
Texas A^iM Univ^rfit^y 
College Station, TX 77B43' 



A^vailable from originator' only ^ 
Telephone (713) 845-7432 



Plots Station Data 
PLTEDT 



L^ingu^ge - FORTRAN IV 

Hardware - IBM 360r65yHouston Omnigraphic 
PJot^Ver 



J' 

This subroutine generates a plot tape, to ^ake any of the following 13 pleats: temperature vs. 
depthf salinity vs. depth, sigma-t vs. depth, temperature vs. salinity, oftygen vs. sigma-t, 
oxygen vs. temperature, temperature vs. silicate, potential temperature vs. salinity, phosphate 
vs. depth, sound velocity vs. -depth, stability vs. depth, silicate .Vs. depth, oxygen vs. depth. 
The size of the plop^^s^J.1 x 17 inches, ©ee i^rogram CAPRICORN) 



Ruth McMath ✓ 
Department of Oceanography 
Texas A&M University 
College Station, TX 77843 



Available from originator only 



Telephone (713) 845-7432 



Calculates Station Data 



Languajge 
Hardware 



FORTRAN IV 
JBM 360-65 



This subroutine computes^ the depths that correspond to input density surfaces. It then inter- 
polates temperature, salinity, oxygen, phosphate, nitrate, and nitrite to these compute4 
^depths. Using these interpolated values for temperature a6d salinity, the following ^are calcu- 
late(f at each computed depth: Potential temperature, thermosteric anomaly, specific volume 
anomaly, sigma theta for depths of 0, 1000, 2000, 3000, 4000, and 5000 meters, transport, dy- 
namic height and acceleration potential. Uses Lagrangian, interpolation or linear interpola- 
tion, depending on paint/,distribution. (See program CAP|MORN) 



\ 



Ruth McMath 

Department of Oceanography 
Texas 'A&M University 
College Station, TX 77843 



Avalj!i§ble ^rom originator only 
Telephone (7i3) 845-7432 



Station Data 
HYD2 * 



Language - HP ASA Bas^-C FORTRAN 

Hatdware -'4IP 2100/13K words /Keyboard/CalComp 
Pl6tt;er, paper tape punch, and 
magnetic tape unit optional 



Computes station data. Input; Header information, depth, temperature, salinity, oxygen and 
silicate from a user-specified device. Output: Station data including depth, temperature, 
salinity, oxygen, silicate, pressure, potential ^temperature , dynamic height, etc. Plot or tape 
output optional. 



Chris Polloni 

Woods Hole Oceanographic Institution 
Woods Hole, MA 02543. 



Available from originator only 
Telephone (716) 548-1400 



Brunt-Vaisala Frequency ■ Language - FORTRAN IV 

ii|BVFRQ Hardware - XDS Sigma 7/204 words 

Subprogram computes the Brunt -Vaisala frequency (radians/sec) from station data. Input: Grav- 
itational acceleration, pressure, temperature, salinity. Requires double precision of program 
ATG. ' ^ 
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Infwnnation. Processiug Center Available ftom originator only 

Woods Hole Oce^nograi^hic Institution 

tioods Hole, MA 02543 ' ^ ' \ Telephone (617) 548-1400 



IhmWlc Height • Language ~ FORTRAN IV 

DYimk * ' Hardware - XDS Sigma^7/85 words 

Subprdgram' calculates an array of dynamic heights for specified arrays erf pressure and ,specifi<? 
vtfltgne anomalies. ♦ 

' Jacqueline Webster • ' Available from originator only 

Woods Hole Oceanographic Institutioxv ^ * ' • 

Woods Hole, MA 02543 Telephone (617) 548-1400 



Potential Energy Anomaly ' Language - FORTRAN IV 

^ P£jq Hardware-^- XDS Sigma 7/103 words 

Subprogram computes the potential energy anomaly from pressure and specif ic, volume anomaly.^ 

Jacqueline Webster Available from originator only 

Woods Hole Ocfeanographic Institution 

Woods Hole, MA %02543 Telephone (617) 548-1400 

\ 

Various Parameters from Station Data ' Language - FORTRAN IV 

OCCOMP ^ . ' Hardware - XDSv'Sigma/^23K words 

Computes various oceanographic parameters from NODC format static/data; interpolates parame-^ 



^ ters to standard depths; computes geostro^^ic velocity and volume^transport for successive sta 
tions«, . . ^ ' ^ ^ 

Mary Hunt ' ^ Available from originator only 

* Woods Hole Oceanographic fnstljtution * 

Woods Hole, MA 02543 Teleptione (617) 548-1400: / 

specific Volume Anomaly r ' Language -'FORTRAN IV-H 

SVAN(»[ Hardware - XDS Sigma 7 ^ , 

\ • - ^ ^ \ 

' Subroutine computes^lie specific volume anomaly, given the pressure and the Specific volume,' 
from an empirical formula ^devised by Fofonoff and Tabata. - ' ^ 

Mary Hunt' * Copy, on file at NODC (lis.tingt documentation) 

Woods Hole Oceanographic Institution ^ 
f Woods :Hole, MA 02543 Telephone (617) 548-1400 , 



Pressure Subroutine Language - FORTRAN IV-H 

PRESS V Hardware - XDS Sigma 7 ^ 

Subroutine computtes a series of pressures from a given series of depths, temperatures, salini- 
, ties, and their latitude. The equation foi; pressure is integrated by successive approxima- 
tions: 

^ ^Mary Hunt - / , * Copy on file at NODC (listing, documentation) 

• Woods Hole Oceanographic Institution 

Woods Hole, MA 02543 Telephone (617) 548-1400 
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Reads Station Data Unguage - FORTRAN IV-H^ / 

^ATA * Hardware - XDS Sigma 7 X ' 

Subroutine reada oceanographic station data cards and returns the information therein to the 
user, one station for each call. 



^ 



Mary* Hunt Available fronj originator -only 

Woods Hole Otpano graphic Ijpstitution . ^ 
Woods Hole, MA 02543 * Telephone (617) 548^1400 



Geostrophic Velocity Difference Subroutine Language - F(JR5RAN IV-H 4 
VEL , ^ , . Hardware - XDS Sigma, 7. t . r ^ 

■\ » ' ' 

Computes geostrophic velocity difference between two oceanographic stations, according to a 
formula described by N.P^. Fofonoff and Ch4rlotte Froese. . ^ > 

X ' Mary Hunt Copy on file at NODC (listing, documentation) 

Woods Hole Oceanographic Institution ' |- 
Woods Hole, MA 02543 ^ telephone (617) • 548-1400 * • ' 



Volume Transport Language - FORTRAN IV-H 

VTR - • ' . Hardware - XDS Sigma 7 

'Computes volume transport between two Stations. 



Mary Hunt Available from originator only . 

Woods riole Oceanographic Institution^ * t » 

Woods Hole, MA / 02543 * * Telephone (617) 548-1400 



Sigma- 1 , Language - FORTRAN IV-» , ' * 

SIGMAT and DSIGMT ; Hardware - XDS Si^a 7 ' 

Subrouting Qpmpute 8 sigma-t from temperature* and salinity by Knudsen's formula^ rewritten by 
PofonofLr«id Tabata^ DSTiGMI" is the double-precision form of SiGMAT. j 

/ . ' ' ' . ' ^ ^ 

f Mary Hunt. Copy oh file at NODC (listing, documentation) 

Woods Hole Oceanographic Institution 

Woods Hole, MA 02543 Telephone (617) J48-1400 



Adiabatic Temperature Gradient Language- FORTRAN IV-H . * 

ATG , " Hardware - XC^ Sigma 7 * 

Subroutilie calculates adiabatic temperature gradient for specified values of pressure, temper 
ature, and salinity, using an empirical formula developed by N.P. Fofonoff. 

Mary Hunt ' Copy on file at NODC (listing, documentation) 

^ Woods Hole Oceanographic Institution 

Woods Hole, M^ 02543 Telephone (617) 548-1400 



Potential Temperature Language -^FORTRAN IV ^ 

POraiP ^ , ' . Hardware - XDS Sigma 7/100 words 

I 

Subprogram computes the potential temperatures at a given temperature, salinity and pressure 
using a formula derived from a polynomial fit to laboratory measurements of ^thermal expansion 
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Mary Hunt Available from origina^oronly 

^ Woods Hoie^ceanographic Institution 
Wdods Hole, MA 0254^ , * Telephone (617) 548-1400 



Specific Volume 
SPVOL . y 



Language - FORTRAN IV 

Hardware - -XDS Sigma 7/129 words 



Subprogram computes the specif ic- volume (ml/g) of seawateiVat a^given temperature, pressure, 
sigma-9,jand sigma-t, using formula by. V.W. Ekman (rewritten by,FofoAoff and Tabata). Input:' 
values' of ^Igma-t as calculated by subprogram S^GMAT. 



OS < 



Mary Hunt 
Wo6ds Hoi 

Woods Hole, MA 02543 



Wo6ds Hole Oceanographic Institution 

-r?^8-i 



Available from ot^glnator only 
Telephone (617ir548-1400 



Oxygen 
OPLOT 



Language ~ FORTRAN iV 
Hardware - CDC 3300 



Computes oxygen in ml/1 and pttcent saturation. * « 

U.S.. Coast Guard Oceanographic Unit ^ Available from originator only, 
< Bldg. 15'9-Er Navy Yard Annex . 

Washington, DC 20590 Telephone (202) 426-4642 

4 - « 



Chlorophyl " f 
CHIP • " ' 

Compujtes chlorophyl in mg/1. 



Unguage - FORTRAN IV 
Hardware - CDC 335^0 



U.S. Coast Guard Oceanographic Unit Available from originator only* 
"Bldg. 159-E, Navy Yard Annex 

Washington, DC 20590 * Telephone (202) 426-4642 



Language - FORTRAN IV 
Hardware - CDC 3300 



Salinity 

SALTY . . 

Computes salinity in ppt with temperature correction and shear correction between each standard 
Vater sample. 



U.S. Coast Guard Oceanographic Unit Available from qpiglnato/ only 
Bldg. 159-E, Navy Yard Annex 
' Washington,^DC 20590 Telephone (202) 426-4642 



r 



TemperaturerSalinity Class vt>lume ^ 
TSVOL ' * 



Lanjguage - FORTRAN IV 
Hardware - CDC 3300 



Calculates volume of water by ir-S class, area within which station is located (in sq. km) and 
total volume for each T-S class.' ^ 

"^^S.-^Coast Guard'^ Oceanographic Unit Available from originator only 
BidV^ 159-E\*Navy Yai;d Annex , 
if 4/ashington, DC 20590 Telephone (202) ' 426-^42 • 



2i 
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Theifiaometer 'Correction ^ ^ Language - FORTRAN IV 

THBRZ, ^ • • * Hardware - CDC 3300 ' 



Corrects deep-sea reversing thermometers using calibration facto|:s; computes thermometric depth 
for unprotected thermoQieters» llsts^ l)ad thermometers and their malfunction^, computes observed 
li^Zt pilots L-Z curve (on line) » coi]U>utes deed L-Z and picks from the L-Z curve the depths for 
the other bottles. ,> / 

U.S. ttoast Guard Oceanographit' Unit Available from orlglna^^r only 
. ^^Bldg. 159-E/Navy Yar4 Aitnex 

Washington, DC 20590 ^ Telephone (202) 426-4642 

J I ' & 

Transport - *^ - Language - FORTRAN IV 

XPORT ^ ' ' / ^ Hardware - CDC 3300/CalComp Plotter 

Calculate^ slgma*t , dynamic helgKts, solenol^al values of average temperature and salinity vol- 
ume flo^l, current velocity at top of each solenpld, distance (n.m.) between stations*, "specific 
heat, heat and' salt transport, net volume flow for each pair of stations, net volume flow In 
form of cold core and warm w%ter for, each station ana plots solenoid graph on off-line plotter. 

✓ I U.S. Coast Guard Oceanggraphlc Unit Available from originator only 

Bldg. 159-E, Navy Yifird Annex 

Washington, DC 20590 Telephone (202) 426-4642 



Plots Temperatures, Lists Mixed Layer Depths "^nguage - FORTRAN 

WEEKPLOT * Hardware - Burroughs 6700/Less than 20K words/ 

*\ ' t CalComp Plotter 

Plot^ sea temperatujre for one-degree quadifongles for the eastern tropical Pacific Ocean; also, 
comp^^tes and lists mixed layer depths. Mixed layer ^pths are computed by an empirical for- 
mula,(;and modified by reports received from tuna fishing vessels. Input: Disk files of synop- 
tic ^rine rad^o weather reports, prepared separately from punched cards. 



A.Jv Good* ' J ^ Available from originator only 

Southwest Vlsherlesr Center 

National MaMae-Flsherles Service, NOAA 

P.t), Box 271 ^ ' - ^ 

La JolU,- CA 52G37 ^Telephone (714) 453-2820, ext. 325 



Constants' for Harmonic Synthesis of Meanj 'Sea Language r ALGpL 

Temperatures, HARH^IC ' ^ Hardware r Burroughs 6700/L£S^ t>han 30^ words/ 

' . . ' ^ Disk input and>output 



Computes five gonstants to be used in harmonic synthesis of mean sea temperatures, by one-de- 
gree' quadrangles. Monthly v^ixlations of mean sea temperature are treated by a Fourier series 
analysis* Disk file of constants, by on^-degree quadrangles for the Pacific Ocean. 

A.J. Good ^ * ^ ' Available from originator only * 

' Southwest 'Fisheries Center ' ' ^ 

•.Rational Marine Fisheries Service, nGAA ' - H. 

P.O. Box 271 \ . 



La Jolla, CA, 92037 Telephone (714) 453^2820, ext. 325 




Vertical Section Plots " ^ Language - FORTRAN 63 

ESTPAC / ' Hardware - CDC 3600/32K words/3 tape units/ 

^ Calcomp Plotter 

ConstrtPcts vertical t^pejatures and salinity sections from STD magnetic tape^on 30-lnch-wlde 

• ■ ^' 



y. < ' ■ ^ 



plotting piper. The product of the two dimensfons (station distance x dep^h) of a data array 
vM^es fouiy must . not exceed 32^000. NOAA Technical Report NMFS CIRC-365. 

Kenneth A- Bliss Available from originator only 

^ Southwest Fisheries Center 

National Marine Fisheries Service » KOAA 
I P.O. ^oit 271 

La Jolla, CA 92037 ' Telephone (714) 453-2820 ^ 

^ ' *^ '• . 

Converts STD Data * Language - FORTRAN , ^ 

RDEDTP . c. * /V Hardware - CDC 360(Vl5lC wo'rds/2 "tape units 

Reads raw STD data from tape, converts to engineering unites, xemoV^ extraneous values, smooths 
and writes a new tdpe. , U.S. Fish and Wildlife Service Spec. Scl. Rept\ Fish. 588, by James H. 
Jones, 19^9. This program Is presently In the state of revision. « 

Kenneth Bliss , Available from originator only 

Southwest Fisheries Center 

NationTT Marine Fisheries Service, NOAA . ^ 
" , P.O. Box 271 

La Jolla, CA '92037 * ^ Telephone (714) 453-2820 

Corrects- STD Data Language - FORTRAN 

jPMOD * Hardware - CDC 3600/lOK words/2 tape units 

Reads STD data from output of prograp RDEDTP, calibrates data, adds Stition location and data, 
and writes a Unal corrected tape. U.S. Fish and Wildlife Service Spec. ^ept. Fish. 588, by 
Jamog J. Jfig^ 1969- 

Kenneth Bliss Available from originator only \ 

» Southwest Fisheries Center . ? 

< National Maripe Fisheries Service, NOAST^ • ^ 

P.O. Box 271 

La Jolla, CA 92037 Telephone (714) 453-2820 



Environment aLDynamics Subroutines , ^ Language - BASIC . 

OCEANtIB ^^"^ c ' Hardware - IBM 360/Dartmouth DTSS 

A series of subroutines: ALPHA calculates Alpha 35, 0, P for any depth by interpolating 'stand- 
ard values from a random dtcess file; GRAV computes the resultant gravity at 'any latitude, us- 
ing the international gravity formula. SIGMAT calculates sigma-o and sigma-t using empirical 
formulas of Knudsen for ffigma-o and LaFond for sigma-t. DENSITY calctilates tjie In situ den- 
sity of seawater, using empirical formulas developed by LaFond and others. sbUND computes 
*80und velocity using the ampirical formula developed by Leroy ift 1968. ' POSIT computes the^ di- 
rection and distance between points on the tearth's surface, using spherical trigonometry, al- 
lowing the earth's radius to vary. , ^ ... 

LQPR W.C. Barney Available from originator only 
Environmental Sciences Department 

U.S. Naval Academy « " ♦ 

Annapolis, HD 21402 * . Telephone (301) 267-3561 f 

Geos trophic Current Language - BASIQ '^'Svv 

CUKRENx Hardware - IBM 360/Dartmouth DTSSyrTr^K 

Calculates geostrophlc current at standard depths between adjacent stations using method of 
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dynamic height or geopotential anomalies. Requires OCEANLIB subroutines. 



, LCDR W.C. Mvney 
Environmental ^Sciences Department 
U*S* ^aval Academy \ 
Annapolis, MD 21402 



Available from originator only 
Telephone (301) 267-3561 



, Monthly Sdnic Layer Depthh 



Language - FORTRAN 
Hardware - IBM 70^4 



Calculates sonic layer depth f rom^ BT traces and converts position to plot on Mercator base 
without overprints. OS No. 53480. Author - ^.B. Nix. 



Data Systems Office 

U.S. Naval Oceano graphic Office 

Washington,, DC 20373 



Available from originator only 
Telephone (301) 763-1^49 



Vertical Temperature Gradients 



Language - FORTRAN 
fikrdj/are - IBM 7jD74 



Computes, from geographic station data, th^ vertical temperature gradient largest In absolute 
magnitude between successive standard depths, for each station. These gradients are tabulated 
In frequency distribution format, and averages are calculated for eaojh one-degree square. OS 
No. 20126 Part 2. Author - C.S. Caldwell. * ' . " 



Data Systems Office 

U.S. Naval Oceanographlc Office 

Washington, 20373 % 



Available from oclglnator ojily 
Telephone (301)' 763-1449 



Water iClarity 



Language - FORTRAN V . 

Hardware - UNIVAC 1108/3K Wds/DrW" 



Combines data taken with Scrlpps lllumlnameter , transmlssometer , SeCchl disk and Forel-Ule 
Scale. Logarlthmetlc combination of parameters are summed, over observation Intervals to yl^ld 
m^ter by meter results. Input: Diffuse attenuation coefficients, transparency readings, 
depths of observations vl^car^s. Output: Visibility loss at specific levels of the water 
Column and contrast loss expressed Ih decibel values. < . . 

* r 

Philip Vinson « Availably- from originator only 
U.S. Naval Oceanographic Office 

Washington, DC 20373 ' Telephone (202) 433-3878 



Oceanographlc Data Computation Language - FORTRAN EXTENDED 

TPCONV * Hardware - CDC 650O/15K 60 bit, wbr5is/;Dwo ^ape 

units 

Assembles temperature, salinity, and sound velocity at forty standard oceanographlc depths from 
any preselected bce^n jarea^onto magnetic tape. Also Included for each oceanographlc station Is 
the layer depth, layer sound velocity, In^ayer gradient, below-layer gradient, axis depth and 
axis; depth e^ound velocity. Output used by program SUMMARY. NUC Tech. N5>ce 1223. 

* JOlui J. Russell Available from originator only * ^ 
Naval Undersea Center 

Code 14 ^ 

San Diego, CA 92132 Telephone (714) 225-6243 



14 > 



24 



f 



FORTRAN mENDED 

CDC 6500/63K 60 bit words/Dl8k/\ 



Two tape units 



4 



Variance and Standard Deviation Language 
SUMMARY \ * Hardware 

r / ' " 

Orders selected oceanographlc data at each of forty standard, levels and selects maximum, 10, 
^0, 30, 40, 50; 60, 70, 80, 90, 25 and 75th percentiles, and minimum. Also computes variance 
and standard deviation at each oi the forty standard depths. Input: Data generated by the 
program TPCONVl Output: Deck of eighty-one cards - two cards at each of the forty standard 
depths. First card contains maximum, .percentiles (above), minimum, number of observations, 
and ridentif ication at one depth. The second card contains variance, number of observations, 
"niean, depth numbefT-and identification. NUC'Tech. Nope 1224.^ 



John J. Russell 
Naval Undersea Center 
^ Code 14 

San Diego, CA WIS 2 



Available from originator only 



Telephone (714) 225-6243 



Sigma-T 
INVREJ 



Language - i^SI FORTRAN 
Hardware - CDC 33^00 



Removes inversioita. in sigma-t profile^ prior to calculation pf buoyance-f requency profile. The 
following options are available: binomial smoothing, minima rejection, mjixlma rejection,, and 
local smoothing. f ' 

'> 

K.* Crocker ^ Available from originator only ^ 

Naval Underwater Systems Center \ - ^ 

Newport, RI 02840 V Telephone (401) 841-3307 '\ , 



STDT?&eeafling . Language - ANSI FORTRAN 

OCEANDATA ^ ' Hardware - CDC 330q/UCq plotter 

Converts raw Plessey CTD-STD data (frequency or per^^ average) to parasietric form, corrects^ 
salinity foraime constant mismatch, rejects invalid data, averages , data hy designated inter- 
vals (normally 1 decibar). Provides listing, plots, disk and tape files o!f corrected raw data 
and reduced data. Several special purpose editions available. • " 



K. Crocker • 

Naval Underwater Systems Center 
Newport, RI 02840 



AvailalJ^ from originator 
Telephonej^(401) 841-33Q7 



only 



Internal Waves 
WITCOMB 



Language - USASI FORTRAN 
Hardware - CDC 3300/ 26K' words 



Calculates intgrnai wave eigenvalues (dispersion curves) and eigfenfunctions as solutions to |he 
linear internal wave equation. Input: Depsity as a function of depth In the ocean from the 
surface to the bottom. Data points do not have to be equally spaced in depth. Output: Den- 
sity profile (smoothed), buoyanpe-f requency profile, dispersions curves, (all listings); plotter 
tape for preceding plus eigenfunctions . Performs numerical integration of internal wave equa- 
tion using fi^ssumed values of frequency and wavenumber until boundary conditions are satified by 
trial and error. 



Alan ^. Massey ^ 
Naval Underwater System^ Center 
Newport, RI 



0^840 



Available from ^ originator only 
Telephone (401) 841-4772 ' . 



Interpolation for Oceanographic Data 



Language - FORTRAN 

Hardware -CDC 3200/IBM 1620' 
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ERLC 



sta^t 



Interpolates th6 viilues of depth, temperature, and salinity at Isentroplc levels (constat 
values 'of the density functions). Uses a foirr-polnt Lagranglan polynomial. .^xcept Ion: Modi- 
fications are made where common oceanographlc condltloi^ distort the pplynoixLal. ^.Technical 
Report- lM-312 'by J. Farrell and R. Uvole, Feb. 1964^ 




Naval Underwater Systems. Center 
NeWpotftj.RI 02840 



Copy on file at NODC (a^ove report^ 



SXb-S/V Data 
82049 . * 



^Language - FOr'trAN V ^ 
'^Hardware - UNIVAC 1108/dalComp Plotter 



Performs general purpose processing of STD-S/V data; Includes conversion to oceanographlc 
units, editing, ordering relative to Increasing depth, calculation of dependent variables, and 
plotting o^ results.' Input:, Pressure or depth, temperature, salinity or conductivity, and 
sound sj)eed In units of frequency, period. or geophysical units. ^ Density computed by ^Integra- 
tion of P, T, S throughout th€ water column; souAd" speed by Wllson^s equation; potential tfem- 
pera^iure bytfofonoff*s equation. Outpat: Magnetic tape, listing, plots of profiles, T vs. S, 
cross-sectlotft,^ geographic contours; measured parameters plus density, sound speed, potential, 
quantities , ^ Brunt-Valsala frequency. 



Michael' Fecher 

Naval Underwater Systems Center 
New London, CT 06320 



CAyallable from originator o'nl^ 
Telephone (203) 442-077L, * ext . 283^ 



Thermometrlc Depth Calculation 
CAST 



Language - HP FORTRAN IV under RTE 
Hardware - HP 2100S/J.2K words ^ore/lOK 
for RTE/^OalComp Plotter ^ 



Uses thermometer readings from Nanserl bottles to cSl^dlate thermoi^trl^ depths of the bottles, 
£Vl].oWlng method described In Instructions for filling out Naval YceaAographlc Office **A ^ 
Sheet." Thermometrlc ^£{x&hd are printed with Input data; L-Z graph Is plotted. 



J. Dean'Clamons 



Available from originator oiily 



.Shipboard Computing Group, Code 8003 
Naval Research Laboratory 
Washington, DC 20375 



Telephone (202) 767-2024 



Thiprmometer Data File Handler 
THERMO 



r 



Language!- HP FORTRAN IV Under RTE' 
Hardw^e - HP, 2100S/12K words core/lOK for RTE 

Maintains and builds ^ ^Isk file containing correction factors for thermometers used on Nansen 
'casts. P^^ram le Interactive and can add, delete, change or list dEta for 4.a2h thermometer. 



J. Q^an Clamo,ns' 
Shlj)board Computing Group, Code 8003 
Naval Research Laboratory 
Washington, DC 20375 



Available from originator cb^Iy 



Telephone (202) 767-2387 




Internal Gravity Waves^ 
DISPER 



Language - FORTRAN 
Hardware - CDC 3800 



Calculates frequency - ^avenumber >dlsp^erslon relations for Internal gravity wave models. In- 
put; B^unt-Valsala frequency dlstSblbutlon , wavenumber range, mode number range. / Output: Fre 
quency |is a function of wavenumber for specified modes. In tabular or line printer plot form. 
NRL Report "72^4, "Numerlc:^l Calculation of Dispersion Relations for Internal Gravity Waves,*' by 
T.H. Bell, Sept. 19/l. . • •» 



/ 
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T, H- Bell 

Ocean Sciences Division 
Naval Research Laboratory 
Washington* pc 20375 



Sea Surface Temperature 

Analysis Model 
MEDSST 



\ Available from originator only 



Telephone (202) 767-3122 



1 



Language - FORTRAN/COMPASS . 

Hardware- CDC 3100/CDC 3200/32K 24 bit words 



Perfdrms a synoptic sea-surface temperature analysis, using a Laplaclan relaxation technique 
to gSierate the final field, EPRF Program Note 5, "Mediterranean Sea-Surface Temperature Anal- 
ysis Program MEDSST," by A,E, Anderson, Jr., S,E, Laifson, and L, I'Anson, 



Sigurd Larson 
Environmental Prediction 

Researc*v^aclllty 
Naval Postgraduate School 
Monterey, CA 93940 



Available from originator only 



Telephone (408) 646-2868 




Language - FORTRAN XV-H 
Hardware - IBM 360/CDC 6500 



^dve'Thermocllnle Analysis 

(\ » 

Reads digitized Wthy thermograph traces and then analyzes them objectively by Gaussian and non- 
Gaussian methods for the top, center, and base of the main thermocllne. Additionally, such 
features as. multiple thermocllnes , Inversions, and thermal transients are Identified and their 
key points are Included In the information data printout, "Objective Digital Analysis of 
Bathythermograph Traces," thesis by Eric F, Grosflls, Dec, 1968, 



Naval Postgraduate School 
Monterey, CA 93940 



Available f^om NTXS, Order No, AD 689 121/LK, 
$5,75 paper, $2,25 microfiche. 



Wet Bulb Temperature 
WETBLB 



Language 
Hardware 



FORTRAN XV 
CDC 6600 



Computes the wet bulb temperature from the Inputs of dry bulb temperature, pressure, and rela- 
tive hvunldlty. This Is sometimes useful for generating homogeneous archive outputs (filling In 
missing wet bulb temperatures from the other variables). 



Jerry Sullivan 

Center for Experiment Design an4 

Data Analysis, NOAA/EDS 
Washington, DC 20235 



Internal Wave Oscillations 
ZMODE 



Available from originator only 



Telephone (202) 634-7288 



Language - FOI^TRAN 

Hardware - Cdc 660d & 7600 (original program) ,. 
' UNIVAC 1108 (modified version) /31K 

words 



Computes elgenf unctions and dispersion^ relations 'for Internal wave oscillations in a density- 
stratified water column, using Newton-Raphson approximation technique to obtain solutions for 
elgenf requencies^ and \kSSociated mode functions. Input: STD data on cards. Output: Tabular 
output of density. Brunt -Vaisala frequency, dispersion relations, elgenf unctions. User's Man- 
ual (RDA-TR-2 7 01-001) by R&D Associates, Santa Monica, California, for implem^tation on CDC 
6600 and CDC 7600; modified User's Manual by A, Chermak for AOML's UNXVAC 1108, 
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Andrew Chermak « Available from originators only 

Ocean Remote Sensing Laboratory 
Atlantic Oceanographic and . , 

Meteorological Laboratories, NOAA 
15 Rickenbacker Causeway 

Miami^ FL 33149 Telephone (305) 361-3361 

f 

Isentropic Interpolation Language - FORTRAN 

Hardware - IBM 360-65/61K bytes 

Provides values of several variables at selected d^psity (sigma-t) levels; interpolation by 
cubic spline, with modifications for oscillation. Input: NODC SD2 (station data) file.^ Out- 
put: Interpolated values of depth, temperature, salinity, pressure, specific volume anomaly, 
dynamic height and acceleration potential, on magnetic tape. Author - Douglas R. Hamilton. 

Oceanographic Services Branch Copy on file at NODC 

National Oceanographic Data Center 

NOAA/EDS 

Washington, DC . 20235 Telephone (202) 634-7439 



Potential Temperature and/or Density Language - Assembler * 

POTDEN . Hardware - IBM 360-65/50K bytes 

Reads the NODC SD2 (station data) file and replaces temperature and/or sigma-t with potential 
temperature and/or density. Requires subroutine PODENS. Author - Walter Morawski. 

Oceanographic Services Branch Copy.9n file at NODC 

National Oceanographic Cfata Center 

NOAA/EDS - - ' 

Washington, DC 20235 ' Telephone (202) 634-7439 



\ 

SIGMAT ' Language - FORTRAN 

Hardware ^BM 360-65/740 bytes (object form) 

Computes sigma-t, giving a rounde4 floating point answer accurate to four significant decimal 
digits (xx.xx); also returns the Qomputed variable^ FS (a function of sigma-t), a short floating 
point number. Author - Robert Van Wie. ' 

.Oceanograpl^ic Services Branch Copy on file at NODC 

National Oceanograhic Data Center J 

-Washington, DC 20235 Telephone (lOZY 634-7439 



Dynamic Depth Anomaly 
PYANOM i 



Unguage - FORTRAN IV-G 
Hardware - IBM 360-65 



Subroutine computes dynamic depth anomaly. Author - Robert Van Wie. 



Oceanographic Services Branch 
National Oceanographic Data Center 
NOAA/EdS 

Washington", DC 20235 



Copy on file at NODC 
Telephone (202) 634-7439 



Computes Salinity from Conductivity, T, «P Language - FORTRAN 

SALINE ^ ^ Hardware - IBM 360-65 




Computes salinity from conductivity In mllll mhos /cm, pressure In declbars, and temperatu^re In 
degrees C. Valid for temperature range 0-30 degrees C, salinity range 20-40 ppt, pressute 
range 0-^000 declbars; measurements outside these ranges may cause a significant error In the 
resulting salinity computation. Author - Philip Hadsell. 

Oqeanographlc Services Branch Copy on file at NODC 

National Oceanographlc Data Center 

NOAA/EDS 

Washington, DC 20235 Telephone (202) 634-7A39 



Volume Transport Function ^ Language - FORTRAN 

QFUN * Hardware - IBM 360-65 / 

Computes the volume' transport . function at each depth of a hydrographlc station. Author -'Ralph 
Johnson. 

* 

Oceanographlc Services Branch Copy on file at NODC * 
l^tional Oceanographlc Data Center 
NOAA/EDS ^ 

Washington, £)C 20235 Telephone '(202) 634*^7439 



Potential Temperature, Potential Density Language - FORTRAN IV-G 

PODENS Hardware - IBM 360-65 - 

Computes potential temperature and potential density from depth, temperature, and salinity. 
Author - Dave Pendleton. 

Oceanographlc Services Branch ^ Copy on file at NODC 
' National* Oceanographlc Data Center 
NOAA/EDS 

Washington, DC 20235 Telephone (202) 634-7439 



Volume Transport ' Language ^ FORTRAN IV 

VOLTRN , Hardware \ IBM 360-65 

Computes volume transport between any two stations, according to the formulas In D. PWdleton*s 
"Specifications for a subroutine which computes the transport function," NODC, August 29, 1972* 
Author - Ralph .Johnson. ^ *- ^ ' ' 

^ -Oceanographlc Services Branch Copy on file at NOBC . 
National Oceanographlc Data Center 

NOAA/EDS \ r 

Washington, DC . 20235 ' Telephone (202) 634-7439 



Computes Pressure ' Language ^ FORTRAN IV ^ 

PRESSR * Hardware - IBM 360-65 / 

f 

Computes pressure from latitude, depth, temperature, salinity, and slgma-t . Mtjst be called 
serially through a cast since the <;alculatlon of pressure at each depth after the surface In--, 
volves the depth, density, and pressure of the precedln^^ depth. Author - Sally Helmerdlnger . 

Oceanographlc Services Branchy Copy on file at NODC 

National Oceanographlc Data Center 

NOAA/EDS J 
Washington, DC 2022^ Telephone (202) 634-7439 



19 

23 ' 



Temperature DifleKence Calculations Language - Assembler 

tBMPDIFF • Hardware - IBM 360-65/36K bytes ' 

Takes selected BT*fl or sections of the BT geoflle and sums the temperature difference for each 
Marsden square, one degree square and month; these may be summed over 10» 15-, orr 20- meter inter- 
vals. Input: BT records sorted by Marsden Xten-degree) squares. .Author - Walter ^orawski. 

Oceanographic Services Branch Copy on file at NOBC 

National Oceanographic Data Center ^ ^ . ; 

NOAA/EDS 

•Washington, DC 20235 Telephone (303) 634-7439 

^ S Data Processing and Analysis Language - FORTRAN* 

Programs; rata Management System (DMS) Hardware - UNXVAC 1106/PDP-ll ^ 

Data Processing ; 

EWSED is a general-purpose editor for DMS files; editing may be by hand or by algorithm^ 
(PDP-11) 

^MSCHP automatically chops a DMS time series into profiles. (PDP-11) 

AACAL aligns, calibrates, and pre-edits data from Aanderaa current meter; output is DMS file. 
(PDP-11) 

MK2CAL transcribes and calibrates Mark XX Cyclesonde (unattended current profiler) data; out- 
put is mS file. (PDP-11) 

DERIVE appends to a DMS file new quantities derived from thfe input file; repertoire is expa^d- 
able. (UNIVAC, PDP-11) 

DMSORT concatenates DMS files from various sources, sorts according to selected key\, segments 
into class intervals, ahd outputs a I»IS file. (UNXVAC) V . 

MATRIX 01 interpolates data in depth-time coordinates to a uniform .grid with various^ input and* 
pu 

Dati Analysis : 

PLSAD^ computes a wide Variety of statistical and dynamical quantities from tlftie series of STD 
and/or PCM profiles ;^requir'fes data on a uniform, rectangular grid. (UNIVAC) 

IWEG computes Internal wave eigenvalues' and eigenfunctions . (UNXVAC) 

(p^EC computes dynamical fields and internal wave rays for x, s sections; requires mean si^-t 
and mean velocity fields on a common level but otherwise nonuniform grid. (UNIVAC) 

SPKTRA computes auto-and cross-spectra by Tukey (correlation) method. (UNIVAC) 

CMXSPC computes auto- and cross- spectra in polarized form for single or a pair of complex-val- 
ued series; input is selected output of SPKTRA. (UNIVAC) 

TiDES4 computes amplitude and phases for specified frequencies *by least -squares ; for pairs of 
series, tidal ellipse parameters are computed.* (UNXVAC) 

( f 
METFLX computes all meteorological fluxes from observed meteorological parameters by bulk for- 
mulas,. (UNIVAC) 

4 

EMPEXGl computes cross cover iance matrix and finds its eigenvalue and (orthogonal) eigenvectors. 
(UNIVAC) » ^ 1^ * 

Ci^Readlng and writing ms files in machii^-level language) 



output options. (UNXVAC) 
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FRir 



Christopher N.K. Mooers or Henry Available from originator only 

T. Perkins 
Division of Physical Oceanography 
Rosenstlel SchooT of Marine and \ 

Atmospheric Science 
University of Miami 

10 Rlckenbacker Causeway * 
Miami, FL 33149 Telephone ^305) 350-7546 

. . • . ) 



( 
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CHEMISTRY 



9 



CO2 and B.O. SAT Language - FORTRAN * 

Hardware - IBM 36(0/less than 5000 bytes 

' 1 ' ' 

Calculates percent ^saturation of dlss6lved oxvgen and concentration of free CO2. Follows 

standard methods (American Public Health Association, 1971) for oxygen and Garrels and Christ 
(1965) for CO2 ("Minerals, Solutions, and EqiAllbrla," KM. Garrels and C- Christ, Harper &nd 
Row). Input: Data cards with sample Identification, temperature, pH, phenolpthaleln alkalln- 
ityvxblcarbonate alkalinity, and dissolved oxygen. An average correction factor for total dis- 
solved solids is included in each run. Output: Printed and punched sample id'entification, 
temperature I dissolved oxygen, percent saturation, carbonate alkalinity, bicarbonate alkalinity, 
bicarbonate, Ki> and free CO2. "A Computer Program Package for Aquatic Biologists by Paul J.- 
Godfrey, Lois Wl>lte, and Elizabeth Keokosky, , 

Paul J, Godfrey Copy on file at NODC (listing, dofcument^tion) 

Department of Natural Resources * 
Cornell University, Fernow Hall ^ 
Ithaca, NY 14850 . Telephone (607) 256-3120 ^ ^ 



Alkalinity . Language - FORTRAN IV 

ALCT Hardware - CDC 3150 

if ^ 
Calculates total alkalinity, carbonate alkalinity, pH, and log (k(A)) for a potentiometrlc al- 
kalinity titration, Endpoints are found by Gram plot method; complefce procedure has been de- 
scribed by Dyrssen and Sillen, Input; Paper tape from DATOS data set and ASR-33 Teletype; a 
set of sample salinities on disk, tape, or cards; one or two cards containing run information. 
Output: Line printer plots of the titration curves; extensive information about each sample 
run; and a summary sheet wi£h the four parameters for each sample, 
« 

John L. Barron Available from originator only 

Bedford Institute of Oceanography 
P. 0. ^x 1006 
Dartmouth, N. S. B2y 4A2 

Telephone (902) 426-3676 



Specific Conductivity with Pressure Effect ^ Language - FORTRAN 

Hardware - IBM 360 

Computes specific conductivities from measured values of resistance for the electrolytic solu- 
tion and the pressures, at which the measures were made. Also determine"b other useful quanti- 
ties needed to determine the effect of pressure* on the ionic conductance through the upper 2000 
meters of the ocean's water column. The conductivity increase which^ results solely from solu- 
tion concentration changes during' compression Is determined and found to be a significant error 
source. Thesis by Michael E, Mays, Dec, 1968^ " * ^ ' - 

U,S. Naval Postgraduate School Available from NTIS, Order No, AD ^86 654, 

Monterey, CA 93940 ^ $4,75 paper copy, $2,25 microficne. 



Percentage Saturation of Oxygen in Language - FORTRAN IV-G 

Estuarlne Waters, B528 Hardware - IBM 360-65 

Computes the percentage saturation of dissolved oxygen in estuarlne or brackish water • Bec^ause 
bf the temperature compensation at a fixed 25 degrees C in the conductivity measurements, sa- 
linity is given as input and is used to compute chlorinity. This computed chlorlnlty, with the 



22 

. ■ 32 



accompasiylng tempdiTatuve, la used to determine the oxygen solubility of the water. The maximum 
pei^Ceiitage saturation of the^ dissolved oxygen In the water Is calculated from the given oxygen 
conteht and the computed oxygen solubility. The ^ame procedure Is used to ascertain the mini- 
ixm percentage jsaturatlon of oxygen, independent of the dissolved oxygen data» there Is an- 
othier set of measured tempera tuxe and conductivity from whlph salinity Is computed. Author - 



Patricia A. Fulton 



Computer .Center Division 
U.S. Geological Survey 
National Center 
Reston, VA 22092 



Copy on file at NODC (listing, documentation) 



Telephone (703) 860-7106 



Water Chemistry - Dielectric Constant 
MOlOl " \ 



Language 
Hardware 



FORTRAN IV 
IBM 360^5 



Calculates the dielectric constant of water (0 to 360 degrees C [water saturated for T over 100 
degrees C]), the density of water (0 to 360 degrees C) , the extended DelJye-Hueckel activity co- 
efficients of charged species, the activity products for 33 hydrolysis reactions Including ox- 
ides » hydroxides, carbonates, sulfides, and silicates, the concentrations and activities of t^n 
Ion pairs or complexes, and of 22 aqueous species, the oxidation potential calibrations, the 
standard state oxidation potentials and Eh values at equilibrium for 13 redox reactions, ^oles 
and ppm jO^ cations at equilibrium with. 42 solid phases and the chemical potentials for each of 
the 42 reactions along with activity product /equilibrium constant ratios for the hydrolysis , 
reactions. 



Computer Center Division 
U.S. Geological Survey 
National Center 
Reston, VA 22092^. 



Copy pn file at NODC (deck> /documentation) 



Telephone (703) 860-7106 



/ 

\ 
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COASTAL AND ESTUARINE PROCESSES 



e 



Three-Dlmensional Estudrine ^ Language - FORTRAN. IV 

Circulation Model Hardware - UNIVAC 1108/4OK 6 character wo|ds 

Produces a fully three-ditnensional simulation of estuarine, circulation for arbitrary lateral 
and bottom geometry, inflowing risers, openings to the sea, salinity, wind effect, and other re- 
lated parameters. ^ i ♦ . ^ .* 



Alan J. fuller 
Department of Meteorology (IFDAM) 
University of Maryland. 
Space Science Building * 
College Park, MI? 20742 



Available from originator only 



Telephone (301) 454-2708. .r. 



Multi-Layer Hydrodynami^l- 
'Numerical Model 



Language - FORTRAN IV 
Hardware - CDC 6500/CDC 7600 



Computes the current patterns using a two-layer hydrodynamic^l-numerical model for bays, estu- 
aries, and sections of coastline^ This program applies the finite dif f erenc?t*hydrodynamic equaT- 
tions to a two-layer system. As optional output, it can produce currents atid layer elevation 
fields,' surface pollutant diffusion fields, and. detailed special point infprmation. EPRF Tech. 
Note. 2-74, **A Multi-Layer Hydro.dynamic-Numerical Model,** by T. Laevastu. • 



*^aivo Laevastu 
Environmental Prediction 

Research Facility 
'Kaval Postgraduate School 
Monterey, CA 93940 • 



Available from originator only 



Telephone (408) 646-2937 



Single Large Hyd^odynamical-/ 
Numerical -^odel 



Language'*- FORTRAN' IV 
hardware - CDC 6500/lBM 360 



Computes tidal, permanent , and wind-induced flows for bays, estuaries, or sections of the 
coastline, using the finite difference form Oi the hydrodynamic equations. Input Includes bot- 
tom bathymetry and tides at an open boundary. Output: Wave elevation and current speed and 
direction fields, diffusion of pollutants field? if desired; de*tailed data for up to twelve 
points? EPRF Technical Note 1-74, "A Vertically Integrated Hydrodynamical-Numerical Model,*' by 
T. Laevastu. ♦ 

4. 

Kevin M. Rabe ' Available from originator only 

Research * Facility Environmental Prediction - . . 

Naval Postgraduate School ' . 

Monterey, CA 93940 . Telephone (408) 646-2S42 vr 



Estuan^e Model 
NONLN^ 



Language - FORTRAN 

Hardware- IBM 370-165/150K characters 



Solves a system of non-linear algebraic equations for a vertical pl^ne estuary model. 
Salinity and two velocity coi^ponent profiles, as a functic^n of two space variables. 



Output : 



L.J. Pietrafesa 

Center for Marine and Coastal "Studies 
North Carolina State University 
Raleigh, NC 27607 



Available from originator only 



Telephone (919) 787-6074 



MIT Salinity Intrusion Program Language - FORTRAN IV^ 

Hardware - IBM 360-65/120 K bytes , 

Trovides predictions of unsteady salinity intrusion in a one-dimensional estuary* of varying 
cross-section, usin^ finite difference solution to th^ equations of motion and tonservation of/ 
salt; coupling is at^i^ifted for through a density t^nn in the momentum equatix>n. Input: Sche- 
taatized geometry, updt^eam inflows as a function of time, ocean salinity and tidal ele\fations 
at the ocean, .Output: (1) Surface elevations, cross-sectional discharges and salinities as a 
function of time; (2) high-water slack salinities by tidal cycle; (3) lopgitudina*l» dispersion 
coefficients; (4) plotsu Tecf^iical Report No, 159, "Prediction of Unsteady Salinity Intrusion 
in Estuaries: MathematobaL^del and User*s Manual," by M.L, Thatcher and D,R,F, Harleman, 
Ralph M. Parsons laboratory, Massachusetts Institute 'o£ Technology, 1972. Also MIT Sea Grant 
Publications 72-21, ■> r ' ' / 

^ • ■ / ■ • • 

M. U-ewellyn Thatcher Available fronf MIT or from th^ author . 

Southampton College 



Southampton, NY 11968 Telephone (516) 283-4000 
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Dynamic Deterministic Simulation Language - FORTRAN IV 

SIMUDELT . Hardware - IBM 360/5 tape units /CalComp:. * 

JP letter optional 

Simulates growth o'f a subaqueous deposit where a fresh water stream enters a saline basin. 
Tidal effects .and longshore transpoi^ also are included. Input: Stream width and depth, water 
discharge, sediment load, profile of^asin bottom, tidal range, lepgth of ti^al cycle, and 
transport t>arameter^ Output: Tables of particle trajectories, graphs of distribution of dif- 
ferent size grains in deposit, plots of delta development in plan^and elevation views, 

K, Kay Shearin . Available from originator only 

University of Delaware- ^ <. . 

^ P.O. Box 2826 . X • ^ . '1 

Lewes, DE 19958 w ^^Telepl^one <302) 645-6674 ^ • 

Beach Simulation Model , Language - FORTRAN IV 

Hardwaire - IBM 1130/16K words/3 disks/ 
CalComp Plotter 

* ^ • • 

A computer simulation model to study relationships * among barometric pressure, wind, wav«s, 
longshore currents, beach erosion, and .bar migration. Fourier series are used to represent 
major trends in weather and wave parameters. Barometric pressure plotted as a function Si 
time; longsl^ore current* velocity computed as function- of first derivative of barometric pres- 
sure, Near^hore area represented by )|a linear plus quadratic surface with bars and troughs gen- 
erated by normal and inverted normal curves. Wave and current energies computed for storm and 
postst^orm recovery periods are used to simulate coastal processes which cause erosion and de- 
position, A series of maps are produced to show changes in near shore topography through time, 
ONR Tech, Report No, 5, "Computer Simulation Model of Coastal Processes in Eastern Lake Michi- 
gan," Williams College, 

William T, Fox* ' . Available from originator only 

Department of^Geqdpgy 
Williams College 

WilliamstpWh^ MA- 01267 . Telephone (413) 597-2^21 



Estuarine Density Currents and Salinity ' Language^- FORTRAN 

DENSITY ^ , Hardware - IBM 370-155/25QK bytes'' 

Performs numerical calculation of steady density currents and salinities, in an^»estuary in three 
dimensions by numerical solution of finite-difference equations for a number of quasi-timeSteps, 
Input: Local geometry^, depths, tidal currents, latitude, boundary salinities. Output: :x-y-2 



paper plot of velocities and vectoi| representation of circulation patterns with complementary 
35tam color slides* Determines primary orientation of 45* oblique photographs, identifies spe- 
cific dye patch moV^ae^t* / and averages velocity oyer a known time span.* "Airphoto Analysis of 
Bstiiarlne Circulation," by H.G. Weise, M.Oc^E. Thesis . 




Dennis Best or L*S. Slotta 
Ocean Engineering Program- 
Oregon State University 
Corvallis, OR 97331 ^ 




Up willing 
CSTLUPWt 



Available from originatot only 



Telephone (503) 754-'3631 



Language - FORTRAN 

Hardware - CDC 640O/150K characters/2 tape units 



Provides sigma-t and three velo<?ity component profiles as a function of two space variables for 
a steady-state^ two-dimensional upwelling. Input, independent variable and independent par^a- 
'eter sizes. 



..A 



Pietraf esa 



Available from originator only 



Center for Marine and Coastal Studies 
North Carolina §tate Uni;i;€tsity 
Raleigh, NC 27607 ; ' ' . ' 



Telephone (919) 787-6074 



Mathematical Water Quality Model 
for Estuaries 



Language - FORTRAN IV 
^Hardware - IBM 360/350R 



0 



Computation 'of water quality parameters of dissolved oxygen, biological oxygen demand, etc., 
for the^Neuse Estuary, North Carolina. 'Input: Upstream dis<;harge and water quality data. Out- 
put! Water levels, velocities, and water quality parameters at downstream locations. Uses nu- 
inerical solutitSn of shallow-wa.ter systems matched with explicit solutions of the mass balance 
equation. Sea Grant Report,* Jn preparation. " • • . v 



' Michael Amein ^ ' 

• Dept. of Civil Engineering 
^ ^iiorth ^Carolina State Urtiv^rsity 
. ! Raleigh,' NC '27607 



Available from, originator only 



Telephone (919), 737-2332 



Computet Jon- of Flow^ through 

Masonboro. Inlet, North Carolina 



Language - FORTRAN IV 
*Hardwar/- IBM 360/350K 



2X toa 



Computation of discharges -and watier levels at complex toastal inlets. Implicit numerical solu- 
tion, of*one-dimensional shallqw water equations. Inptft:, Tidal 'elevations at sea, water levels 
on the land side of inlets./ 6utput: Velocity, dischitrg^s, and water-levels. Sea Grant Report 
UNC;?SG-73-15. Also, Journal of Waterways and Harbor^ Dfv., Proc, ASCE, Vol. IO4N0. WWl, Feb-rj 
ruary 1975^ PP- 93-nO. . * V ' ' ' 



MichaejrAmeiii 
Dept. of Civil Engineering 
North Carolina* Sta£e Unj.versity 
Raleigh^ UC 27607 . . 



Available from originator 



Telephone (919) 737-2332 




Circulation in Pamlico Sound*" 



Language - FORTRAN 
Hardware - IBM '36O/320K 



Provides the water surfacfe elevat4.ons, water velocity plots, and flows through in;iets for Pam- 
lico and Albemarle Sounds, North Carolina* Input: "Wind fields, inflows^ ocean tides. 
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Michael Ameln 

Department of Civil Engineering 
Korth Ckrollna State University 
Ralej:gh, NC 27607 



Available from originator only 



Telephone (919) 737-2332 



Three-Dlmenslonal Simulation Package 
AUGUR 



Language - FORTRAN IV/COMPASS 

Hardware - CDC 6400/SCOPE 3.4 Operating System 



AUGUR is a general three-dimensional simulation package designed to handle general spatial 
bookkeeping problems and basic input -output of' data, thus leaving the main probl&m of modeling 
to the user. The specfif ications are: 

iX) to handle 1 to a maximum of 33^000 volumes; 

(2) to handle a one-» two-, or three-dimensional space in Sny one of the follo^ng 
structures: . * 



(a) 1 X 1 X 1 (e) NC X 1 X 1 

(b) 1 X NR X 1 (f ) NC, X NR X 1 

(c) 1 X NR X ND (g) NC X NR X ND 

(d) 1 X 1 X ND (h) NC X 1 X ND 



where NC « maximum volumes' along the^e^t^to 

east^ axis ^ 

NR ■ maximum volumes along the south to 

north axis 

ND " maximum volumep along the lower to 

upper axis 



(3) to determine the following information of each volume: 



(a) corner coordinates 

(b) volume centroid 

(c) centroids of the 
volume*^ faces 



(d) projected areas onto XY, XZ, and YZ planes of the 
volume *s faces 

(e) the volume measurement 




(4) to aJ^w the user to handle: 



(a) 1 to 40 state var4a))les in each volume 

(b) velocities at the centroid of each volume or (but not both) at the centroids 
of each face of the volume 

.t (c) boundary conditions for state variables and velocitiesQ^ ^ 

\ \ ^ 

(5) to allow the user to initialize state variables an^l velocities of each volume; 

(6) to allow the user to define the corner coordinates ol each volume; 

(7) to set up the space in, a 'right-handed coordinate system; 
^ (8) to allow free field data input (to a certain extent); 

(9) to use Adams-Bashforth predictor equation for the simulation with Euler*s equation 
as a starter with the option to ];eplace these equations'^ " . 

(10) to be able tb 8,ave the simulated data on tape in or^er to continue the siitlulatlon 
latfer on or to plot the data; 

(11) to provide the option of suppressing certain output. 

" ^ ^ ' 

Due to the generality of the specif ications » AUGUR requires much more computer core storage 
th^ a program written for a specific mo^el. In order to reduce the core requirement, AUGUR 
has been subdivided into semi^independent parts called overlays, thus allowing only currently 
needed programs to occupy core while keeping the unneeded ones on disk until later. Further 
reduction of core is made possible by keeping in core only those data arrays of volumes which 
are to be used Immediately and storing the data arrays of volumes not currently in use on disk 
University of Washington Ref. No. M74-88, N§F GX 33502, IDOE/CUEA Technical Report 7, ''AUGUR, 
A Three-Dimensional Simulation Program for Non-Linear Analysis of Aquatic Ecosystems," by D.L. 
Morishima, ^.B. Bass, and J.J. Walsh, November 1974. 



'Department tof Oceanography 
University. oS^ashington 
Seattle, WA 98195 y 



Copy on file at NODC (Program code on magnetic 
'tape) . Documentatioil (above report^ available 
from NTIS, Order No. PB 245 566, $8.00 paper, 
$2.25 fiche. 
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Salinity DlatrJ^bution in One-Dlmenslpnal 
Estuary » ARAGORK 



Language - FORTRAN 
Hardware - 



*6 



A model is coi&structed for an estuary to predict the salinity distribution for a given fresh- 
water Inflow, with application to the upper Chesapeake Bay and the Susquehanna River. Baaed 
on a salt continuity equation In which the seaward salt advectlon Is balanced by turbulenji^dlf'' 
fualon toward the head of the bay. In final form» It Is a linear » second-order, and parabolic 
partial differential equation with variable coefficients which are functions o'f both space and 
time, Tech, Report 54, Ref, 69-7, by, William Bolcourt, May 1969, 



Cheaspeake Bay Institute 
The Johns Hopkins University 
Baltimore, MD 21218 



Copy on file at NODC (above refport) 



Modeling an Ocean Pond 



Language - FORTRAN / 
Hardware - IBM 370-l)5 



♦lodels hydrodynamlc characteristics of coastal waters, using the Galerkln welg^^^d-resldual 
method through which the finite element scheme can be Implemented without a knowledge of the 
particular ,Var la tlonal^^rlnclple of the governing equation. Marine Technical Report. 40, ''Mod- 
eling ka Ocean Pond: A Two-Dimenslonal, Finite Element Hydrodynamlc Model of Nigigret Pond, 
Charlestown, Rhode Island", by Hsin-Pang Wang, University of Rhode Island, 1975,' 



Department of Mechanical Engineer- 

' ing and Applied Mechanics 
University of Rhode Island 
Kings toDK, RI 02881 



Copy on file at NODC (Above report, 
includes listing) 



Estuarlne Chemistrf 
MYACHEM 



Language - FORTRAN IV/WATFIV 
Hardware - IBM 370 



From raw hydrographic data and nutrient chemistry data absorbences, computes actual values as' 
compared with standards, along with instantaneous tide height of station. Estuarlne low salin- 
ity procedures are applied. Output: ' Formatted concentrations of nitrite, nitrate, ammonia, 
urea, dissolved oxygen, silicate, and phosphate. Author - Stephen A, Macko, ^ y 

B.J, WcAlice * Available from originator only . 

Ira C, Darling Center (Marine Laboratory) * ' 

University of Maine at Orono 

Walpole, ME 04573 ' ' Telephone (207) 563-3146 




Estuarlne Tides 
TIPES 



Language - WATFIV FORTRAN 
Hardw%e - IBM 170 

Computes Instantaneous tide height, ranger, and tide character, given corrections, 
Stephen A, Macko, ' 

B.J, McAlice . ' \ Available from originator only 

Ira C, Darling Cejiter (Marine Laboratory) 
University of Maine at Orono 

Walpole, ME 04573 , , Telephone (207) 563-3146 



Author 



Mathematical Model of Coastal Upwelling: 

Drift, Slope, and Littoral Currents 
OCE01P07 



Language - FORTRAN IV 

Hardware - IBM 360-40/23K bytes 



s^alculates and prints ^rlft, slope ^ and littoral current tables, as well as their corresponding 
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Kclux tables *- a total of 33 tabl^es. Input: Orientation of pie coast, latitude of the slte» 
direction of the wind, velocity of the wind. Output: For drift currents, the results are pre- 
sented Injten tables, corresponding to each tenth of the H/D ratio, where H Is the depth of the 
site and p Is the depth of the friction layer (a function of latitude and wltid velocity) ; In 
each table the drift currents are shown at 20 levels of the local depth; at each level, values 
for the folloy^lng elements are given " velocity, angle with the wlncl, direction, angle with the 
slope, slope component of velocity, knd component of velocity parallel to the coast. The drift 
fluxes Are presented In an eleventh table and calculated at each tenth of the H/D ratio, giving 
value^^^for the following elements - rate of flow (m^/sfec), angle with the wind, angle with the 
slope g^iVect ion, slope component of the rate of flow, and component of the rate of flow par- ^ 
allel to the coast, ^lope currents and fluxes and, littoral currents and fluxes are presented 
in tables similar to those of drift ^rrents and fluxes, but without values for angle of cur** 
rents and fluxes with the wind. ) ' b - * 

CF Emmanuel Gama de Almeida ^ Copy on file at NODC (listing, 

Dlretorla de Hldrografl^ e Navegacao documentation in English and 
SCO Naclonal de Dados Oceanograf Icos. Portuguese) 
Prlmelro Dlstrlto Naval - Ihla Fiscal 
Rio de Janeiro - G6-20.000, Brasll 



,6each and Near shore Maps Language - FORTRAN XV » 

Hardware - IBM 1130/SK words 

Topogi^aphlcs maps of the beach and nearshore area aire computeci and plotted based oir nine pro 
files from a baseline across the beach. Profiles are spaced at 100*"foot Intervals along the 
beach with survey pplnts at five-foot Intervals along each profile. Linear interpolation is 
made parallel to the baseline between adjacent profiles. .Numbers and symbols are printed to 
form the maps. Profiles for a series of days are used t^ print maps of erosion and deposition, 
by subtracting elevations for each day from the elevations for the previous day. ONRsTech. Re- 
port No. 4, "Beach and Nearshore I^amlcs in Eas.tem |^ike,Michlgat^", by Davis and Fox 

' \ 

William T. Fox * Available ftom originator only 

Williams College ' 
Department of Geology 
,WllUamstowav MA ...01267 ^^^.^^'fs'^^'S^Ji^ephone fA13) 597-2221 

Numerical Model, Dynamics and Kinematics Language - FORTRAN • ^ 

of Partially Mixed Est|iarles Hardware - * . 

A real-time numerical model is developed to describe the dynamics and kinematics, of partially 
mixed estuaries. The^governlng equations are formally laterally averaged and realistic estua- 
rlne bathymetty Is^^clpded. The external Inputs to Ihe model are salinl^ty and tidal ampli- 
tude as a functijpnTof. time at the ocean boundary and the freshwater discharge at the river « 
boundary. The model includes the continuity, salt, and moment^ balance equations coupled by 
equations of state, ^he numerical technique conserves volume, salt, and momentum in the aS- 
sence of dlsslpa^ve effects. Simulations show that using a constant vertical eddy Viscosity 
and dlffuslvlty produce unrealistic salinity distributions, but have minor effects on the sur- 
face ^amplitudes; results from the application of phe model, to the Potomac Estuary, using a sta- 
bility dependent eddy viscosity and dlffuslvlty, yield distributions comparable to field obser- 
vations. Further numerical experimentation Illustrates the response of the circulation to 
changes in the boundary friction and the river discharge. Reference 75-9, Technical Report 91, 
"A Numerical Investigation into the Dynamics of Estuarine Circulation," by Alan Fred Blumberg, 
October 1975. , - / ' 

Cheaspeake Bay Institute Copy on file at NODC (above report) . ^ 

The Johns Hopkins University ^ 
Baltimore, MD 212lS 
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Deep Ocean I^ad Handling Systems 
DOLLS 



Lan^age 
Hardware ^ 



FORTRAN IV 
CDC 6600 



Provides a capability to evaluate any selected deep ocean load handling system on the basis of 
critical mission parameters; allows comparison of candidate systems, development of an optimum 
system, jind sensitivity analyses. Input: Mission objectives, mission scenario, mission param- 
eters, analytical parameters. Output; Scenario with times and costs in individual step and 
cumulative form. "A Method for Evaluation and Selection of Deep Ocean Loa4 Handling Systems," 
Vol. I, Filial Report, Vol. II, User's Manual; supplementary Letter Repdrt. ^" 



L.W. Hallanger 

Civil Engineering Laboratoi^ . ^ . 
Naval Construction Battalion Cerlter 
Port Hueneme, CA 93043 r 

; ' ■ c . 



Copy on file at NODC (Deck) 



Telephone (805) 982-57-87 



Load Motion and Cable Stresse^ 
CABl ' J 



^ Language 
Hardware - 



FORTRAN IV 
CDC 6600 

Detennindi**^ the transieat and/or stMSy-stite load motion and cable^tresses in a vertically 
suspended load due -to^xcitation ar top^r release from non-equilibrium position . Uses the 
method of orthogOnari coJAocation in tHeVlengtK*' variable in order to reduce the equations to 
a set of ordinary differential ^uations. These are solved by a predictor-corrector method. 
Input: Cable length, cablje density, Ea, Xoad radius load density, fluid density, added mass . 
and drag coefficient on lead (spher.g^dPaoi'i^) initial tension at loadi frequency^ and amplitude of 

ime history of cable tensions, velocities, ai^ time history of load 



,ftrt?ced motion. Output 
motion. 19 



H.S. Zwlbel. 

Civ il Eng ineering Laboratory 
Naval ConstructfljOn Battalidn Center 
Port Hueneme, 0A^9^43 



Copy on fijLe at 



NO^i^^/fDe 



Deck) 



Telephone (805) 982-4625 



Soil Test Data 
TSIAX 



Language - FORTRAN IV 
Hardware - CDC 6600/lOOK characters 



.Uses standard technique \qx. reduction„of triaxial soiVt^st data. Inpu^ Axial displacemei^ 
iDf sample, axial load , orx^^nal are^, original height, eonsolidation^'Vessurey volume change, 
and pore water pressure.^«..4)i^pt<t : Axial strain, pore water pressuj^e change^ principal stress 
difference, A, minor major pVincip^^effec^ive stress, principal stress' jatio , P, Q. 

'h7J, Lee ' - Copy on file at NODC (Deck) 



CiyJLT^Engineering Laboratory 

Naval Construction Battalion Center 

Port Hueneme, CA 93043, 



Telephone (805) 982-5624 



Dynamic Stress Response of ^ 
Lifting Lines, CABANA 

Predicts dynamic responses o'f 
erators are calculated from ex 
calculation to determine the p 
elasticity, paylOad physical ^d 
'^yf^um or acceleration spectrum, 
tion of frequency,, probability 



Language 
Hardware 



FORTRAN IV 

CDC 660(1/2 tape ilnits 



a lift line/payload system with^ long line length. Response op-* 
plicit equations; the output spect*rum is used iti statifiLtical 
robability distributions. Inputs Cablg physical prope^ies and 
escriptions, surface excitation in t^eHorm of displacement spec- 
Output. JOynamic tension or payload motion operators as a func- 
distribution of dynamic tension and motion, and design peak 
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tension, CEL .Technical Report R-703, "Dynamic Stress Response of Lifting Lines for Oceanic pp- 
eratipns." by C,L» Liu, N6v,^1970, n 

Francis C, Liu Copy on file at NODC (Deck) 
Civil Engineering Laboratory * 

Naval Construction ^ttalion -Center ' 

Port Hueneme, CA 93043 Telephone (805) 982-4613 



Dynamic Response of Cable System 
SNAPL6 



Language 
Hardware 



FORTRAN IV 
CDC 6600 



Determines dynamic responses of a two-dimensional cable system in the ocean with in-line 
masses, based on lumped mass approximation; equations of motion were solved numerically by 
predictor-corrector method; cablfe segment takes tension only. Input :^ Cable sfc^tic position, 
cable physical and elastic properties, in-line mass characteristics, current profile, surface 
excitation in sinusoidal form. Output: Tension and mass point location as f unct^.ons of time, 
CEL Tech, Note N-1288, "Snap Loads in Lifting and Mooring Cable Systems Induced by Surface 
Wave Conditions," by F,C, Liu, Sept, 1973, 



Francis C, Liu 

Civil Engineering Laboratory 

Naval Construction Battalion Center 

Port Hueneme, CA 93043 



Copy on file at NODC (Deck) 



Telephone (805) 982-4613 



Changes in Electromechanical Cable Language - FORTRAN IV 

RAMSC Hardware - CDC 6600 

Determines the internal and external changes of a multi-strand electromechanical cable under' 
end constraints and loadings. Based on helical wire model, equatiojis are solved numerically\ 
by progressive iteration. Input: Cable construction details, wire physical properties^x- ^ 
ternal loadings and constraints. Output:. Cable end torque or torsloil, elongation, internal 
changes. Note: RAMSC and RADAC have Ijeen combined tct form program TAMAC, 

• Francis C, Liu Copy on file at NODC (Deck) 

Civil Engineering^I-aboratory 

Naval Construction Battalion Center * 

Port Hueneme, CA ^93043 Telephone (805) 982-4613 

End Responses in Electromechanical Cable . Language - FORTRAN 3!V 
RADAC ' Hardware - CDCIft600 

Predicts the elongation, end rotation, or en^ moment of a double-armored electromechlanical 
cable, , Based on helical wire nlodel, the problem is solved numerically by progressive itera- 
tion. Input: Cable physical and elastic properties, end loadings and/or conditions, detailed 
description of cable construction. Output: End responses in the form of epd moment or end 
torsions, cable elongation, cable geometric changes, wire tensions. Note? RAMSC and RADAC 
have been combined to form program^AWAC, . 

Franc^s^, Liu Copy on file at NODC (Deck) 
Civil Engineering Laboratory 

Naval^^nstruction Battalion Center 

Po^ggHueneme, CA 93043 Telephone (805) 982-4613 

Unmanned Free-Swimming Submersible Language - BASIC ^ 

UFSS Plotting Program Hardware - HP 9830A/4K words core/24K wojds 

addtlonal/Plotter plus ROM ^^'^ 

Calculates .radius of mission possible for theoretical UFSS (Unmanned Free-Swimming Submersible) 
when internal energy usage (hotel load) is varied. Uses simple iteration to select relative 
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sp^ed tot most efficient energy usage per actual distance covered* Input: Minimum, maximum, . 
and increment on external volume and hotel load of UPSS; responses (yes or no) for sgeed ma- 
trix; response (yes or no)#f6f another run with an ocean current one^half knot greater ^han 
[btevious plot. Output: Speed matrix (if desired) up and downstream, matrix of radii covering 
l!3olume and Hotel load variations; graphic output of radii matrix as a function of external vol- 
ume and hotel load as a parameter. Document atrion: OTD-OI-74-02-01. 



Bdwar'd J. Finn 

Ocean Instrumentation Branch 

Naval Research Laboratory, Code 8422 

Washington, DC 20375 



Avallf^ble from originator only 



Telephone (202) 767-2112 



Unmanned Free-Swimming Submersible 
UFSS Variable Hotel Load 



Language - BASIC 

Hardware - HP 9830A/2K words 



Calculates ranges possible with theoretical UFSS when internal energy usage (hotel load) is 
varied, using iteration to determine speed for most efficient energy , usage per actual distance 
covered. Input: Minimum, maximum and increment on external volume of UFSS and on hotel load 
in watts; response to question on desire to have most efficient speeds printed. Output: Ma- 
trix of ranged covering volume and hotel load, variations; speed matrix (if desired); terminal 
plot of data in the matrix. Documentation: 0TD-0I-7A-01-01. 



Edward J. Finn 

Ocean Instrumentation Branch 

Naval Research Laboratory, Code 8422 

Washington, DC 20375 



Unmanned Free-S\Hmming Submersible 
Nominal UFSS Program , 



Available from originator only 



Telephone (202) 767-2112 



Language - BASIC 

Hardware t HP 9830A/2K words 



Calculates distance covered by theoretical urfmanned free-swimming submersible vehicle with 
specific energy package, using iteration to determine speed for most efficient energy usage 
per actual distance covered. Output: Data about model; most efficient speed with ocean cur- 
rent and range (one-way) as a function of external volume^of the UFSS. 

Edward J. Finn Available from originator .only 

Ocean Instrumentation Branch « 

Naval Research Laboratory, -Code 8422' n * 

Washin^gton, DC 20375 * Telephone (202) 767-2112 



Steady- State Trapezoidal 
Array Configurations 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



Steady-state configurations under forces due to currents are determined. Finite element (lump 
mass) three-dimensional statics equations are solved using Skop*s method of imaginary reac- 
tions. NUSC/NL Tech. Memo. SA2302-0170-72 , "On the Parameters Governing Steady State Distor- 
tion of a Bottom Moored, Subsurface Buoyed, Linear Cable Array in Various Current Fields,*' by 
J.D. Wilcox, Sept. 1972. * \ 



J.D. Wilcox 

Naval Underwater Systems Center 
New London, CT , 06320 m 



Available from originator only 
Telephone (203) 44^-0771 



Anchor Last, Buoy System 
Development Dynamics 



Language 
Hardware 



FORTRAN V 
UNIVAC 1108- 



Equations of motion for a surface or subsurface buoy system initially stretched out are solved 
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as the anchor is dropped. The equations of motion for buoy, cable (modeled as a number o^ 
imp maflBQs) and anchor are integrated in t^e time domain, using a fourth order Runge-Kutta 
algorithm. Velocity-squared drag and hydrodynamic masses concentrated at each*lump. Input: 
Physical parameters of items to be modeled. Output: x-z positions, tensions and angles, 
sequential plots. NUSC/NL Technical Memorandum TA12-134-71, March 1971. * • 



Gary T. Griffin 

Naval Underwater Systems Center 
New London, CT 06320 



Available' from -originator only 
Telephone (203) 442r0771 



Cable-Towed Buoy Configurations 
in a Turn 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



Steadystat6 configurations under forces due to a ship on a turn are determined. The three- 
dimensional steady state cable equations are integrated with a fourth order Runge-Kutta al- 
gorithm from the towed body up to the ship. Input: Physical parameters of items to be modeled. 
Output: Buoy attitude x-y-z positions, ship speed, buoy speed, tensions and angles. Thre6- 
jdlmensional plots available. Project CORMORAN Memo 0132 (4.10.3), "Steady State Towllne Con- 
figurations in a Turn," Sept. 1973. ^' , * . 



Gary T. Griffin 

Naval Underwater ^Systems Center 
New London, CT 6^320 



Available from originator only 
Telephone (203) 442-0771 



Free-Floating Spar- . Language - FORTRAN V 

Array Dynamics Hardware - UNIVAC 1108 

* \ 

The equations of motion for spar buoy, cable (lump mass model), and an extended three-leg 
structure are solved in the time domain using a. fourth order Runge-Kutta algorithm. Auxiliary 
computation of spar buoy bending in the waves is included. Input: Physical parameters of the 
items to be modeled. Output: Spar buoy x-z motions and tilt, hydrophone motions on the ends 
of the three-leg structure. NUSC/NL Technical Memorandum No. TA12-257-71, Noy. 1971. 



Gary T. Griffin 

Naval Underwater Systems Center 
New London, ^ 06320 



Available from originator only 
Telephone (203) 442-0771 



Free-Floating Spar 
Buoy Dynamics 



Language ^ FORTRAN V 
Hardware - UNIVAC 1108 



The equations of motion for the spar buoy are solved in the time domain using a fqurth order 
Runge-Kutta algorithm. Auxiliary computations of the spar buoy bending due to waves are In- 
cluded. NUSC Tech. Memo. No. TA12-257-71, "The Spar Buoy System," by G.T. Griffin, Nov. 1972. 
NUSC Tech. Memo. No. 2212-90-67, "A Guide for the Design of Spar Buoy Systems, by K.T. Patton, 
July 1967. 



Gary T. Griffin 

Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



Ship Suspended Array Dynamics 



*^ Language t FORTRAN V 

Hardware - UNIVAC 1108 



Equations of motion for a vertically suspended cable array..,are .solved in the time domain as the 
ship drifts and responds .to waves. The cable is broken .tip Into 4 elastlcally connected lump 
masses, each having two degrees of freedom.^ The 2 x n equations of motion are solved slmulta-- 
neously in the time domain using a fourth order Runge-Kutta algorithm. Velocity-squared 



( 
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viscous forces and Jiydrodynamic masses are concentrated at each lump. NUSC Tech. Memo. No. 2212r 
202-68» "A Study of the Stability of the Five-Hydrophone,. Ship-Suspended General Dyncbics Ar- 
ray,", by G.T. Griffin, Oot. 1968. 



Gary T. Griffin 
^ Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



Boomerang Corer Descent /Ad cent 
Trajectories 



Language 
Hardware V 



Borom§rJb^ corer trajectories due to currents are calculated. The three-dimensional body equa- 
tions are integrated in the time don\ain using a fourth order Runge-Kutta algorithm. " 



Gary T. 'Griffin 

Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



Buoy- Ship Dynamics 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



The equations of motion for the buoy moving in a plane (3-D Heave, Surge and Pitch) and con- 
strained by the A-frame and vangs are solved in the time domain using a fourth order Runge- 
Kutt a. algorithm. Ship response to the quasi-random sea state is computed using Lewis's dimen- 
sionless RAO's. NUSC letter ser. TA12:83, "Results of First Order Study of Ship-to-Buoy Mooring 
Study7" 



Kirk T. Patton or Gary T. Griffin 
Naval Unj^erwater Systems Center 
New* London, CT 06320 



Available from originator only 
.Telephone (203) 442-0771 



Buoy System Dynamics 



Language 
Hardware 



FORTRAN V 
UNIVAC 1108 



Six degree-of- freedom equations of motion for the buoy are soLved in the time domain using a 
fourth order Runge-Kutta integration algorithm. These equations are coupled with the set of 
partial differential equations for cable dynamics through tensions and velocities at the buoy^ 
The equations of motion for the cable are solved in the space-time domain using a method 
characteristics approach, i.e., a modification of Hartree*s method. ^Output motions and jten- 
sions for the buoy and along the cable are plotted as power spectra using FFT methods. ^The 
program has been used for the design of oceanographic and acoustic buoy systems and for evalua- 
tion of NOAA Data Buoy design. 



Kirk T. Patton and Gary T. Griffin 
Naval Underwater Systems Center 
New London, CT 06320 
, 3« ^ 



Availat)le from originator only 
Telephone (203) 442-0771 ' 



Fixed Thin Line Array Dynamics 



Language 
l^ardware 



FORTRAN V 
UNIVAC 1108 



Equations of motion for the cable array are solved in the time domainj for excitation by cur- 
rents* The array is broken up into n elastically connected lump masses, each having three de- 
grees of freedom. The 3 x n equations of motion are solved simultaneously, 6sing a fourth or- 
der Runge-Kutta algorithm. Velocity-squared viscous^ forces and hydrodynamic masses are con- 
^centrated at each lump. » 
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ERIC , 



Kirk T. Pat ton' or Gary T, Griffin 
Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone <203) 442-0771 



Fixed Thin Line Array ^ Lan'guage - FORTRAN -V 
Steady Statfe Configurations ' Hardware - UNIVAC 1108 

Steady-state configurations under forces due to currents are determined. The three dimensional 
steady-state cable equations are integrated using a fourth order, Runge-Kutta algorithm. One 
fiftieth the array length is typicaJLly used as the integration 'step size. 

Kirk T, Patton or Gary T, Griffin Available from originator only 
Naval Underwater Systems Center 

N6W London, CT 06320 Telephone (203) 442-0771 



Marine Corer Dynamics Language- - FORTR^ V 

Hardware - UNIVAC 1108 

The equations of motion for a corer Iree-f ailing ^through the water column (or, for the case of 
a cable-lowered corer, free-falling through its trip height) are integrated in the time domain* 
using a fourth order Runge-Kutta algorithm. Upon impact with the bottom, frictional forces 
due to th^ sediment are introduced and the corer comes to rest. Output: Terminal velocity, 
velocKy at impact, penetration of corer and compaction of recovered sample, "An Analysis of 
Marine Core^ Dynamics," by K.T^%atton and G.T. Griffin, Marine Technology Society Journal, 

Nov. -Dec. 1969. ^ ' , 

. ^ » 

Ki?k T. Patton and Gary T. Griffin Available frois^origina^tor. only 

NavaL Underwater Systems Center' . - ^' ' 

New London, CT 06320 ' . Telep^ione (203) 442-0771 



Steady-State Buoy System Configurations Language - FORTRAN V 

Hardware - UNIVAC 1108 

Steady-state configurations under forces due to winds and currents are computed. The three- 
dimensional cable equations are integrated with a fourth order Runge-Kutta algorithm from the 
buoy down to the„anchor. Aft iterative method is used to modify the buoy's displacement until 
the vertical cable projection matches the water depth; ^lOOO the cable length is used as the 
integration step size. Instrximent packages mounted in or on the line can be accounted for 
also. Output: Buoy drift and cable x-y-z positions, tensions, two angles and stretch as func- 
tions Qi catle length. JThree-dlmensional plots also available. NUSC Tech. Memo. 2212-212-68, 
"On)the Equilibrium Configuration of Moored Surface Buoys in Currents," by K.T. Patton, Oct. 
196B. USL Tech. Memo, 2212-116-69, "A Study of Three NAFI Buoy Mocfrings," by (J.T. Griffin, 
Jun^ 1969.. NUSC Tech. Hemo, 2212-170-69, "An Analysis of Optimizing NAFI Buoy Shallow Water 
Moorings," by G. Griffin and p, Bernard, Sept. 1969. 

Kirk T. Patton or Gary T. Griffia, Available from originator only 
Naval Underwater Systems -Center 
* New London, CT 06320 Telephone (203) 442-0771 



Steady-State *Subsurf ace Buoy System 
Configurations 

Steady-state configuratiops under forces due to.ctirrents are computed. The three-dimensional 
cable equations are integrated with a fourth order Runge-Kiitta algorithm from the buoy down 
to the anchor; 1/lOOOth the line length is typically used as the integration step size. Out- 
put: x-y-z cable positions, tensions, stretch and angles (all in dimensionless form) as a 
function of dimensionless cable length. Three-dimensional plots also avaj.lable. NUSC Report 



Language - FORTRAN V 
Hardware - UNIVAC 1108 
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4379, "Nondlmenslonal Steady State Cable Configurations," by G,T. Gr;Lffin, Aug, 1972; NUSC 
Tech. Memo, TA12-50-73, "Remote Terminal Usage to Compute Subsu^rface Single Leg Array Configu- 
rations" by G,T* Griffin, Nov, 1973, 



Kirk T, Patton.or Gaty T. Griffin 
Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
•Telephone (203) 442-0771 



Towed Array Dynamics 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



Equations of motion for the towline, towed arra;^, and drogue ajre solved in the time domain for 
response to ship motions, etc. The equations are integrated using a fourth order Runge-Kutta 
algorithm. The program first computes the steady-state configuration and tensions which serve 
as initial conditions for the dynamics section. Also, using the steady-state data, the 
Strouhal excitation frequencies and amplitudes are computed along the towline. 



< 



Kirk T, Patton or Gary T, Griffin 
Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



Towed System Configurations 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



Steady-state configurations for^ towed systems are determined. Effects of current and ship 
turns can be included,' fhe three-dimensional cable equations are integrated with a fourth - 
order Runge-Kutta algorithm from the towed body up to the ship. For steady ship turns, the 
centrifugal force. is also integrated up the cable, l/lOOth to l/lOOOth the cable length is 
used as She integral step size. Output: x-y-z positions, tensions, stretch, and angles as 
functions of cable length. Can be dimensionless. Three-dimensional plots also available, 
NUSL Tech, Memo. 933-0175-64, "Towline Configurations and Forces" by K,T, Patton, Oct, 1964; 
'NUSC/NL Report No, 4379, "Nondimensional Steady State Cable Configurations," by G,T, Griffin, 
Aug, 1974; Project CORMORAN Memo, D112/4, 10,3 , "Two-dimensional Steady-State Towed System Con- 
figurations," by G,T, Griffin, March 1973, . \ ^ 



Kirk T, Patton or Gary T, Griffin 
Naval UnderwateiLSystems Center 
New London, CT Vo? 




Available from originator only 
Telephone (203) 442-0771 



Towed, System Dynamics 



Language - FORTRAN V 
Hardware - UNIVAC 1108 



* 



r 



Equations of motion for the towed body and for the cable (when treated as a lump moss model of 
n lumps) are solved in the time domain using a fourth order Run^-|Cutta algorithm. The towed 
body is allowed six degrees of freedom, and each cable element has three. "Dynamics of a Cable- 
Towed Body System," by G,T, Griffin, MS Thesis, University of Rhode Island, Kingston, Jan, 
1974. 



Kirk T. Patton or Gary T, Griffin 
Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



a^Ar 



Trapezoidair Array Deployment Dynamics 



Unguage - FORTRAN V 
Hardware - UNIVAC 1108 



rEjiKrcions of motion for a trapezoidal array are solved in the time domain as the second anchor 
"^Tiowered and the ship is underway. The two subsurface buoys and the four cables are broken 
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up into six elastlcally connected lump masses, each having three degrees of freedom. The ^ 
eighteen equations of motion are solved simultaneously in, the time domain, using a fourth order 
Runge-Kutta algorithm. Velocity-squared viscous fojces and hydrodynamic -masses are concen- 
trated at each lv?P- NUSC Report No, 4141, "Dynamics of Trapezoidal Cable Arrays," by G,T, 
Griffin and K,T, i'atton, March 1972, 



oCTr^Gar> 



Kirk T, P^ttoh or Gary T, Griffin. 
Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone (203) 442-0771 



Trapezoidal Array Dynamics Language - FORTRAN V 

Hardware - UNIVAC 1108 

Equations of motion for a subsurface trapezoidal cable array are solved in the time ,domain for 
response to currents. The two subsurface buoys and the three cables, are broken up into six 
elastlcally connected lump masses, each having three degrees of freedom, iThe eighteen equa- , 
tions of motion are solved simultaneously using a fourth order Runge-Kutta algorithm. Velocity- 
squared viscous forces and hydrodynamic masses are concentrated at each lump, NUSC Report No, 
4141, "Dynamics of Trapezoidal Cable, Arrays," by G,T, Griffin and K,T, Patton, March 1972, ] 

Kirk T, Patton or Gary T; Griffin Available from originator only 
Naval Underwater Systems Center { ^ 

New London, CT 06320 ^ Telephone (203) kkt-^ll\ 



Steady-State Cable Laying Language - FORTRAN IV 

Hardware - 

The three-dljnepsional steady-state cable equations are integrated using an Euler method. Ship 
speed and cable payout rate constant. Output: x-y-z positions of the cable and tensions. 
"Final Report to NUSL-- Analysis of Cable Laying," by J, Schram, 1969, 

<^ 

R^ Pierce 'Available from 'originator only 

< Naval Underwater Systems Center 

New London, CT 06320 * Telephone (203) 442-0771 



Towed Array Configurations* " Language - FORTRAN V 

♦ • Hardware - UNIVAC 1108 

Steady-state towed array configurations are computed. The two-dimensional cable equations are 
integrated with a fourth order Runge-Kutta algorithm from the drogue up to the ship; 1/lOOOth 
the total cable length is used as the integrated step size. Output: xtz positions, tensions, 
stretch, and angle as fun<jtions of cable length. Plot routine available, 

S, Rupin^ki' Available from originator only 

Naval Underwater Systems Center 

New London, CT 06320 Telephone (203) 442-0771 



Cable Configuration language - FORTRAN IV w 

Hardware - IBM 1800 * 

Computes the equilibrium configuration and tensions of a cable towing a submerged body for 
faired, unfaired, and discontinuous (lower part faired) cables. The output on the line printer 
gives the values of the input data followed by' various calculated values. The solution is 
found for the "heavy general cable" law of cable loadings as described by M,C, Eames (1968), 
Execution time: About 30 seconds for each case, NIO Program Ndv 168, Author - Catherine 
Clayson, * ^ 

National Institute of Oceanography Copy on file at NODC (listing, documentation) 
Wonnley, Godalmlng" Surrey, England ^ , 
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GEOLOGY AND GEOPHYSICS 



Convection in Variable Viscosity Fluid 
CONVEC 



Language - FORTRAN' IV 

Hardware - CDC 6600/140K bytes/Disc/ 

^ Tektronix graphics terminal 



Computes streamlines, temperatures, and shear heating in a highly viscous fluid of variable vis- 
cosity (Earth's upper mantle), relief gravity, and hetac f low, "ADI Solution of Free Convection 
in a* Variable Viscosity Fluid," by M.H, Houston, Jr„ and J,-C1, De Bremaecker, Jour, Comp, 
Phys,, Vol, 16, No, 3, 1974, 



t 

J, -CI, De Bremaecker 
Rice Univefcity 
P,0, Box 1892 
Houston, TX 77001 



Gr^t^tional Attraiction, Two Dimensional 
Bodies, TALWANI 2'-D GRAVITY, W9206 



Copy on file at NODC 



Telephone (713) 526-4141 



Language - FORTRAN IV-H 
Hardware - IBM 360-65 



Calculates the vertical componeht of gravitational attraction of two-dimensional bodies of 
arbitrary shape by approximat^ing them to many-sided polygons. The technique is from Talwani, 
Worzel, and Landisman in J,G,R, , Vol, 64(1), 1959, Output: Gravity values are printed in ta- 
bles; the calculated profile and the observed profile (if one exists) are plotted on the line 
printer in either a page size plot or an extended plot with the x-axis rwnning down the page, 
Contains option of units in miles, kilofeet, or kilometers. 



Computer Center Division 
U,S, Geological Survey 
National Center 
Reston, VA 22092 




Copy on file at NODC (listing, documentation) 



Telephone (703) 860-7106 



'X-Ray Diffractiom Analysis 



Language - FORTRAN IV 

Hardware - XPS Sigpa 7/20K 32 bit woi^ds/RAD 



Provides mineralogic analysis of marine sediments from X-ray diffraction data. Input: Tape 
containing data generated by X-ray difj^actometer*^ .^tput : List of "d" spacings, 20 angles, 
Intensities and peak heights of diffraction maxima,, .list of minerals and estimated -founts , in 
samples analyzed, /' ^ ^ 



John C, Hathaway 
Office of Marine Geology 
U,S, (geological Survey 
'Woods Hole, MA 02543 



Sediment Grain Size Analysis 



Available *from originator only 



Telephone (617) • 548-8700 



Language 
Hardware 



FORTRAN IV 
IBM 1130 



J. 



Calculates statistical parameters for sediment grain size analysis. Moment measures routine 
(Sheppard*s correction applied) from 'Schl^e and Webster (1965); linear interpolation for Folk 
and Inman Graphic Measures, Input: Phi size, cumulative frequency percent couplets. Output: 
Moment measure of mean, standard deviation, skewness, ^rtosis. Folk. Graphic Measures , Inman 
Graphic Measures, mode- and median values, histogram plots. 



Gerald L, Shideler 
U.S, Geological Survey 
P,0, Box 6732 
Cotpuff* Christi, TX 78411 
Telephone (512) 888-3241 



Program maintained by: 
Computer Center Division 
U,S, Geological Survey 
Federal Center 
Denver, CO 80225 



ERLC 
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Magnetic Anomalies 
MAG2D . 



Ungua^e - FORTRAN IV 
Harawdre - XDS Sigma 7/32K 32 bit words/ 
Plotter 



Computes theoretical magnetic anomalies for two-dimensional' bodies magnetized In any specified 
direction. Vertical, horizontal, and total field anomalies are computed at a series of obser- 
vatlonpoints equali; spaced alo^g a profile. A graphic display of the anomaly and the bodies 
Itv be outpu't to the CalComp or Versatec Plotter. A ilne printer plot of the anomaly Is made. 
S^dl^lcatlono program by S.B. Joyner, USGS, Silver Spring, MD. Requires Woods Hole Oceano- 
graphlc institution subroutines, MOVE, AXIS, SYMBOL, KUMBER and PLOTDFp. 



Copy (main program) on file at NODC 
(listing, documentation) 

Telep^ne (617) 548-8700 



James M, Robb 
• U.S. Geological Survey 
Of^ce'of Marine Geology 
Woods' Hole, M^02543 

Geophysical Data Reduction and 
-Plotting Programs 

A system of 'programs to process and plot marine gravity, magnetic, and bathymetric data. The 
progr^^ check Lrdata errors, merge geophysical data with navigation, and plot the processed 
Satf^profiles or on computer-generated Mercator projection charts, Tech, Report, No, 180, 
by M. Gemperle and K. Keeling, May 1970, • ^ 



Unguage - 0S3 FORTRAN IV/COMPASS 
Hardware - CDC 3300 



Geophysics Gr^up 
School of Oceanography 
Oregon State University 
Corvallis, OR 97331 



Available from originator only 



Processing and Display of Marine 
Geophysical Data 



Unguage - 0S3 FORTRAN IV/COMPASS 
Hardware - CDC 3300 



A system of programs to process and plot marine feravit:y, magnetic, and bathymetriC data using 
JmprovIS navigation techniques- and standard data ^formats. The navigation P"f^f^«^^^^^^^^« 
and Dopiler Speed Log data and gyro headings comblne4 with Magnavox 706 satellite navigator 
fiv.« tf deteralne data point positions and Eotvos corrections. All outputs from processing 
l^ll^s anS Suts to plotting programs are in standard NGSDC format for marine geophysical 
data. Tech. ^ Report. .by M. Gemperle, G. Connard, and K. Keeling (in press, 1975). 



Geophysics Group . 
School of Oceanography 
Oregon State University 
Corvallis, OR 97331 



Available from originator only 



Marine Seismic Data Reduction 
and Analysis 



Language - 0S3 FORTRAN IV 
Hardware - CDC 3300 



A series of programs to reduce, displax, and analyze marine seismic data. These data include 
reveled and slS-ended seismic refraction, wide-angle reflection, and marine micro-earth- 
□ulkH 4uppSntary programs compute seismic wave arrival times and distances using theoret 
rcfl";rtrSerco7si^^ of plane dipping layers. Tech. Report by S.H. Johnson et al (in 
press, 1975). ' ► - 



Geophysics Group 
School of Oceanography 
Oregon State University 
Corvallis, OR 97331 



Available from originator only 



A Library of Geophysics Subroutines 
GLIB 



Language - 0S3 FORTRAN IV/COMPASS 
, Hardware - CDC 3300 
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_ ^ — ^ — ^ ^ ^ ^ _ 

The library cons^-sts of varit>u8 subroutines commonly used in geophysical data reduction and 
plottinR and not available in ther 0S3 FORTRAN library. The subroutines fall into five general 
categories: (1) Plotting - genejral purposd plotter subroutines, (2) Time and data conversion, 
(3) ArKihmetic functions not contained in the 0S3 FORTRAN library, (4) File control programs 
peculiar to' the 0S3 operating sy'stem, (5) Miscellaneous subroutines . Tech. Report by K. 
Keeling, M. Gemperle »_^and G. Connard (in press, 1975). 



Geophysics "Group 
School of Oceanography 
Oregon State University 
Corvallis, OR 97331 



Available from originator only 



Reduction, Display, and Storage of Navigation, 
Gravity, Magnetic and^^Depth Data 



" m 

Language - FORTRAN IV (most of the programs) 
Hardware - IBM 1130/Peripherals described below 



Processes data recorded by a data logger, prepares profiles and. maps, and provides reduced data 
in a form suitable for da'ta banking and interpretation. The first stage of the processing is 
to de-multiplex the data to s^i^ate disk files, and at the same time automatically edit where 
possible and flag errors that ocbt^^ The second s^age_is to filter data affected by ship mo- 
tion, and the third stage is to optimize the navigation by merging dead-reckoning, hyperbolic 
or satellite data, and from this calculate depths, and gravity and magnetic anomalies. Graphi- 
cal presentation of the data is in the form of profiles and maps. The maps include the ship's 
track and posted geophysical values or profiles along the ship's track. The finally reduced 
data may^ be stored on magnetic tape in^anjr of the International Geophysical Data Exchange For- 
mats. With this system it is possible to reduce data and produce maps and final reports within 
three wefeks of the end of the survey. The complete system can be used at sea w^th one engineer 
and one operator /programer , or the data logger alone may be used at sea and tji€n only an engi- 
neer would be required. ^ z 



The IBM 1130 has a central processing unit with 8K 16-btt words of core storage, an integral 
disk drive, and a console typewriter. Peripherals include two extra IBM disk drives, a Data 
Disc fixed-head disk drive, Tektronix Model 4012 visual display unit with 9 Tektronix Model 
4610-1 lard copy unit, a 76 cm CalComp drum 4)lotter , Facit punch tape' inputVoutput , and ti)o 
RDL Series 10500 magnetic tape decks. A. Data Dynamics 390 teletypewriter is Used for off-line ^ 
punch tape preparation and, when necessary, as a remote terminal via a Modem linked in' paral- 
lel with the visual display unit. 

Equipment tHat has been successfully interfaced with the Decca Data Lxigger ihclud^a Decca Main 
Chaiii Mk 21 Receiver, Decca Hifix^, Sperry Gyrocompass Mk 227, Microtechnica Gyrocompass, LaCoste 
and Romberg Shlpborne Gravity Meter, Askania Gss2 and^ss3 Gravity Meters, Anschutz Gyro-Stabil- 
ized Platform, ^Barringer Proton Magnetometer, Edo-Westem Precision Depth Recorder 033C-26) 
linked to an Edo-Western Digitrack (261C) , Two-Component Magnetic Log,^Walker Electric Log, and 
a Marquart Doppler Sonar 2015A. , o ^ 

"COmpulS^r System for Reduction, Display^ and Storage of Navigation, Gravity, Magnetic and Depth 
Data Reoprded in "Continental Shelf or Deepr-Ocean Areas," a series of twelve software manuals, 
^6duce4 by the Department of Geodesy and Geophysics, Cambridge University, Oct.* 1974, under 
*^contraCt to ,the National Environment Research Council. 




r Unl 

te of O^eanographic Sciences 

sel Base, No. 1 Dock 
[outh Glamorgan , Wales , UK 



Copy on file at NODC (Above manuals) 



Computation and Plotting of Magnetic 
Anomalies aiild Gradients 



Language - FORTRAN II 
"Hardware - IBM 70$4/CalComp plotter- 



Computes tJYa anoipaly profiles for total field ^ horizontal and vertical components, first and 
second vertical" derivatives , and first and second horizontal derivatives over a uniformly mag- 
netized two^dimesipnal polygon of irregular cross-section. Output may be printed or plotted. 
"Potential Applications of Magnetic Gradients to Marin,e Geophysics," by William E. Byrd, Jr., 
June 19^; prpgram^modif ied and expanded from Talwani and Heirtzler (1964). 
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Department of iGeology and 

Geophysics 
Massachusetts Institut;e of 

Technology 
Cambridge, MA 02139 



Available from NTXS, Order No. AD 655 892/LK, \ 
$5,75 paper, $2,25 microfiche, " & 



Geomagnetic Field 
MFIELD \ 



Language - FORTRAN IV -^ 
Hardware - XDS Sigma 7/372 32 bit words*. 



Calculates regional total geomagnetic field at a specified latitude and' longitude arid time. 
Subroutine is initialized with the harmonic coefficients from any specified input device via a 
separate subroutine. Shared variables are placed in COMMON, (See I, A, G. A, Commission 2* 
Working Group A, 1969, International Geomagnetic Reference Field 1965. J. Geophys , Res.,^ 74, 
,pp, 4407-4409.;) *Subroutine COEFF requires 271 words. 



Robert C, Groman 



Woods Hole Oceanographic Institution 
Woods Hole, MA 02543 



Available from originator only ^ ' 
'Telephone (617) 548-1400, ext, 469 



Marine Geophysical Data Reduction 



Language 
Hardware 



FORTRAN IV 
IBM 360-65 



Corrects soundings for sound velocity variations (if desired), computes residual magnetic anom- 
alies frofQ magnetic total-intensity values, and reduces marine gravity-values to free-al^ anom- 
alies corrected for Eotvos effect and drift. Each geophysical data point is associated with a 
date-t;Lme group, a geographic position, and an approximate mileage along track. The output is 
in theform of separate magnetic tapes and listings each for bathymetric, magnetic, and gravity 
data, in a format suitable for dirett input to display or analytical programs. NOAA Technical ^ 
Memorandum PRL AMOL-11, "A Computer Program for Reducing Marine Bathymetric, Magnetic, and Grav- 
ity Data," by Paul J. Grim, Atlantic Oceanographic and Meteorological Uboratories , Miami, Flor- 
ida, Januar/1971. 

Paul J. Grim, Code D621 Copy orf file at <JJODC (Above report, with* 

Marine Geology and Geophysics Branch listing) 
National Geophysical and Solar- 
Terrestrial Data Center, NOAA/EDS 
Boulder, CO 80302 • ^ 



Plots Profiles of Bathymetry and Magnetic 
or Gravity Anomalies 



Unguage - FORTRAN IV 

Hardware - IBM 360-65/CalComp 563 Plotter 



Mduces bathymetric and magnetic anomaly profiles, in a form suitable for publications with 
iMtle or no additional drafting. The horizontal scale can be the distance along the trackllne / 
iFnautical miles or kilometers , or degrees of latitude or longitude. The input consists of J 
digitized bathymetric^ and magnetic anomaly data "on separate magnetic tapes, the horizontal ai^ 
vertical axefe of the profiles are determined automaticaUy with reference to the maximum and \^ 
minimum values of the input data. Control cards contain variables that further determine how 
the data ^are to be plotted. The program can also be used for plotting gravity anomaly profiles 
by substil^^ng the gravity anomaly in mllligals for the ma^etlc anomaly in gammas on the input 
tape- One of the control card variables causes the vertical axis to be labeled either gammas 
or mllligals. Magnetics and bathymetry can be plotted together (the bathymetry is always below 
the magnetics) or either can be plotted separately. In addition, the same data can be "Plotted 
in a different manner (for example, with a different* vertical exaggeration) If desired. ESSA 
-technical Memorandum ERLIM-AQML 8, "Computer Program for Automatic Plotting of Bathymetric and 
Ifagnetic Anomaly Profiles,'* by Paul J. Grim, Atlantic Oceanographic and Meteorological Labora- 
tories, Miami, Florida, July 1970. 



Paul ^GrlmT^Code D621 - Copy on flip at NODC (Above report, with 

Marine Geology and Geophysics Branch listing) 
tional G 
Terror 
Boulder, «C0 80302 



National Geophysical and Solar- 
TeJT^rf&trlal Data Center, NOAA/EDS 
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LlSts Raw Data ^- Language - 

ZLIST / Hardware - UNIVAC 1108 

Lists a single file of IMG&G standard .raw^data tape, according to a standard format. Requires 
Subroutine DLIST (HRKIN). ^uthor - R.^.^Lattlmore. 

«' Director, Marine Geology and Available from originator only 

Geophysics , . 

^ Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
13 Rltkenbacker Causeway * 

Miami, FL 33149 1^ Telephone (305) 361-3361 



Plots Trackllne Language ~ \ * ' 

QCKDRAW Hardware - UNIVAC 1108 

Using as Input the standard MG&G navigation cards, pl6ts a trackllne with or without tick marks 
delineating time Intervals. The user 1^ given external control of the map size, latitude anli 
longitude map boundaries, the number of* files to be mapped, the time marks, and annotation. 
The trackllne Is plotted up to the boundary limits specified, allowing the user to plot only a 
sector of the navigation deck, loaded. Because the size of the actual plotting sheet Is 28 
inches. Internal boundaries may also be required. In this case, bookkeeping devices within the 
program will assign trackllne to the appropriate submaps and. plot each In sequence. Author - 
J.W. Lav^lle. 

Director, Marine Geology and Available from originator only 

Geophysics 
. ^ Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
15 Rlckenbacker Ca^usevay 

Miami, FL 33149 ' Telephony (305) 361-3361 ' 



Plots Contour-Crossing Intervals Language - . / 

DOUBLX Hardware - UNIVAC 11*08 

Calculates contour-crossing Intervals, determine highs and lows along a trackllne, and plots 
both* u^lng as Input a USA Standard format data tape. Annotation of the extrtme Is also pro- 
vided. The user Is glv^ control of the 'map size, the latitude and longitude boundaries, the 
number of files to be mapped, the contouring Interval, and the data field from which the data 
Is chosen. If the data which are being handled require more than one plotting sheet, an appro- 
priate choice of latitude and longitude ))oundarles will allow the entire job to be handled at 
one time, with the plot^ drawn consecutively. Author - J.W. Lavelle. " a 



Director, Marine Geology and ' 




from originator only 



Geophysics ^ > ^ * 

Atlantic Oceanographlc and ^ 

Meteorological Laboratories /NOAA 
15 Rlckenbacker Causeway ^ , 

' Miami, FL 33149 ^ * TelephoAe (305) 361-3361 



Plots Geophysical Data \ Language - 

PLOTZ Hardware - UNIVAC 1108 



Produces a plotter tape to display raw depth, magnetic, or gravity data vs. time, with the as- 
pect-ratJLo automatically dete\plned to facilitate comparison with *the original records. Scale 
factor (fathofes, gammas, or gravity meter units per InchV^ st be specified; If maximum and min- 
imum values are not specified, the raw data* will be scanned and the values determined. Re- 
quires subroutines LIMITS, DIGICT, HRMIN, PLOT (Includes PLO^S and FACTOR), NUMBER, SYMBOL. 
Author - R.K. Lattlmore. \ 
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Director* Marine Geology and 

Geophysics 
Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
15 Rlckenbacker Causeway 
Miami, FL 33149*" 



Available from originator only 



Telephone (305) 361-3361 



Lists Every Hundredth Value 
SNOOP 



Language - 

Hardware - UNIVAC 1108 



Scans tape containing data In the standard MG&G format, listing every 100th value and the 
last value before an end-of-flle mark. Author - R.K. Lattlmore. 



Director, Marine Geology and 

Geophysics 
Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
15 Rlckenbacker* Causeway 
Miami, FL 33149 



Available from originator only 



Telephone (305) 361-3361 



/ 



Navigation Computatipns 
TPNAV 



Language 
Hardware 



UNIVAC 1108 



AccepC^f^t^ndard MG&G navigation data cards, computes course and speed made good and Eotvos cor 
rectlon between adjacent posit Ions ^ compares this with Input course and speed If g^en; creates 
a binary tape with position, azlmuth^and distance Information requli^ed for lnt||tpolatlon of po- 
sition in programs FATHCW, GAMMA, and GAL. Author -' R.K. Lattlmore. 



Director, Marine Geology and 

Geophysics 
' Atlantic Oceanographlc and * ^ 

Meteorological Laboratorles/NOAA 
15 Rlckenbacker Causeway 
Mlamls FL 33149 . 



Available from orlglna'tpr onXyi^ 



Telephone (305) 36^-3361 



Edits Geophysical Data 
ZEDIT 



Language - 

Hardware - UNIVAC 1108 



Performs two editing functions on MG&G standard raw data tape; .(a) Deletion by index number; 
(b) insertion of new data by date-time group; such data can be put on tape (e.g., output from 
program HANDY) or in card format, one value per card. Data to be inserted must be ordered by 
date-time group. Requires subroutines DLIST (HRMIN) . Author - R.K* Lattlmore. 



Director, Marine Geology and 

Geophysics ^ 
Atlantic Oceanogra^ic and 

Meteorological LaboratorieS'/NOAA 
15 Rlckenbacker Causeway 
Miami, FL 33149 



Available originator only 



Telephone (305) 361-3361 



Geophysical Data Conversion 
HANDY 



Language 
Hardware 



UNIVAC 1108 



Converts data in the MG&G standard data-card format to a binary tape suitable for input to .ehe 
raw-d^ta editing, eva^Iuation, and processing otogra^s (e.g., FATHOM, PLOTZ, ZEDITau^Reguires 
subroutine DLIST (HRMIN)/ ^ Author - R.K. Lattlmore. 
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Director, Marine beology and ^ 'Available from originator only , , • / 

Geophysics * , \ * / 

Atlantic Oceanographic and _^ ^ ^ 

' Me teoro logical Laboratories /NOAA ^ * r» ' . 

15 Rlckenbacker^tdauseway > " - ^ ^ r ^ 

Mi|mi, FL 33149 ' Teleph^5^>>^5) 361-3361 



Lists GeophysiXfal Data -O Language - ' *^ ' ^ 

LISTP tt' Hardware - UNIVAC 1108 ' t ' 

Llsxs the conteitts of a^ tape certain W one or more fires cff reduced marine geophysical darken. 
Require subroutine PPLIST (modltiTcati^n of PTLIST) . Author - R.K. Lattimore. ' . 

. Director, Marine Geology and - Available from ^originator only"^ ^ 

Ge^ophysics s , , . 

Atlantic Oceanographic ajid 

Meteorological Laboratorles/NOAA ' * f ' 

15 Rlckenbacker Causeway ^ ^ 

Mlainl/FL 33149 / . Telephone (305) 361-3361 



Course » Speed, Eotvos Correction 
LOXNAV ^ 



Language - 

Hardware r UNIVAC 1108 



Accepts standard MG&G navigation data cards, computes courses and speed made good ^d Eotvos . 
correction between adjacent positions,^; if course and speed ar« given on input, compares input 
•with computed values. Author - R.K. LaNiimore. 



Director , Marine Geology /and 

Geophysics ^Vr-^ 
Atlantic Oceanographies and 

Meteorological Laboratorles/NOAA 
15 Rlckenbacker Causeway 
Miami, PL 33149 



Available f\com otlglnator only 



Telephone (305) 361-3361 



Converts Geophysical Data 
/\ PHONEY 



Language *- 

Hardware.- UNIVAC 1108 



Converts marine geophysical data from 120;sHiiUfflBr^"^ge (10 images to the b\ock) even^arity 
BCD on 7-track taoe (produced by program UNIFOO on the CDC 6600) to th^ standard MG^ storage 
format. Author W R.K. Lattimore. - 



ictor , 



Director, Marine 'Geology and 

Geophysics 
Atlantic Oceanographic and 

Meteorological Laboratorles/N6AA 
15 Rlckenbacker Causeway * 'v 
Miami, FL 33149 * 



Available from originator only 



Telepr 



51t3361 



Sound Velocity Variation and Navigation 
FATHOM 



Language - 

Hardware - UNIVAC 1108 



Given smooth-track navigation cJata and sounding values Indexed by time, the program corrects . 
>^for sound-velocity variation (if desired), ship's draft (if desired), and cpmputea latitude, 
-77 longitude, aijd distance along track for each observation; the output 'is in the standard MG&G 
reduced-data format. Requires subroutines GP, HRMIK., QUIT (TPLIST) . Author ~ R.*^, Lattimore. 
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* Director, Marine Geology and Available*- from originator only 
Geogphyslcs \ ^ 

Atlantic Oceanographlc and \ 

Meteorological Laboratories /NOAA 
IS Rlckenbacker Causeway 

Miami? FL 33149 Telephone (305) 361-3361 

Regional Field » Residual Magnetic Anomaly Language - 
. GAMMA ' Hardware - UNIVAC 1108 

\^ Given snfcoth-track navigation data and t^otal-fleld magnetic measurement>e Indexed by time, the 
program computes regional fields reslduaf magnetic anomaly, latitude, longitude, and distance 
along track for each observation. Output Is In the standard MG&G reduced-data format. The 
regional field is computed as follows: .For each input navigation point, or for ^ach 20 n. m. 
Interval along track (if navigation points are farther apart), a regional-field value is com- 
puted according to the method of Cain et al using the IGRF 1965 parameters. Regional field 
values for each observation are interpolated linearly. Requires subroutines FIELD, GOFIND, 
GPMAG, HRMIN, SETUP, QUn^" (TPLIST) . Author - R.K. Lattlmore. 

Director, Marine Geology and Available from orlgltiator only** 

^S. Geophysics 

Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA * 
t 15 Rlckenbacker Causeway ' • 

Miami, FL 33149 . Telephone (305) 361-3361 



Gravity Language - 

GAL Hardware - UNIVAC 1108 

Given smoothed-track navigation data and gravity meter dial readings Indexed by date/time, this 
program will (1) compute Eotvos correction between adjacent navigation points; (2) reduce the 
dial reading to observed gravity corrected for instryment drift and Eotvos effect; (3) deter- 
mine latitude', longitude, and distance along track for the observations; (4) commute the free- 
air anomaly from the 1.930 International formula for theoreticaJ^ gravity.. Requires subroujiines 
GOFIND, GPGAL*, HRMIN, QUIT (TPLIST). Author' - R.K. Lattlmore. 

Director, Marine Geology and Available from originator only* 

Geophysics « 

Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 

15 Rlckenbacker Causeway . - 

Miami, FL 33149 Telephone (-305) 361-3361 



Plots Profiles of Geophysical Data Language - * 

DISPLOT ' Hardware UNIVAC. 1108/offllne CalComp plotter 

This program will scale and generate the necessary plotter commands to produce a graph of ^ 
sounding, depth i magnetic or gravity value vs. distance along track. The source data consist 
of^as many as four magnetic tapes containing unformatted standai;dlzed geophysical data, such as 
are produced by MG&G reduction programs (Grlm^ 1971) . As many as nine Y-quantltles may be 
plotted against one X-axis. Optidns provide for: (1) converting distance in nautical miles to 
kilometers; (2) scanning the data and annotating the upper X-axis, at the appropriate point, 
with crossings of even degrees of. latitude, or longitude; (3) omitting all axes; (4). plotting 
the profile reversed, or front right to left against distance values which Increase from left to 
right; (5) drawing the zero Y ordinate; and (6) "Assembling" a-single profile from more than 
one source, i.e., from different places on a single tape, or from different taiJes. The input 
data are not edited. Multiple profiles may, overlap one another as indicated by space limita- 
tions or aesthetics. NOAA Technical Memorandum' ERL A(»fL-ll, "A Computer Program for Reducing 
Marine Bathymetrlc, Magnetic, and Gravity," by Paul J. Grim, January 1971. Authof - Robert K. 
Lattlmore, October 1971. * , * 
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Director » Marine Geology and 

Geophysics 
Atlantic Oceanographlc and * 

Meteorological Laboratories /NOAA 
15 Rlckenbacker Causeway 
Miami, FL 33149 



Available from originator only 



Telephone (305) 361-3361 



Codverts Digitizer Data 
DYGYT : 



Language 
% ' Hardware 



UNIVAC. 1108 



Qonverts digitizer data on j>unched cards to MG&G standard raw-data tape. Requires subroutine 
DLIST (IMRMIN). -Authors - Developed by J.W. Lavelle, modified for 1108 by R.K. Lattlmore. 



Director, Marine Geology and 

Geophysics 
Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
15 Rlckenbacker .Causeway 
Miami, FL 33f49 



Available from originator only ' 
Telephone (305) 361-3361 



Edits Reduced Geophysical Data 
EDIT 



Language - 

Hardware - UNIVAC 1108 



Performs editing operation^ on a file of reduced marifte geophysical data as follows: (a) 
tlons (maximum ^000); <b)/lnsertlch:i of new data or modification of single points (maxlmum^^O) ; 
(c) block adjustments tcf Zl, ^, Z3, Z4 (maximum yOO points). The total number of editing op- 
erations may n^t exceed 2,499; with the exception of deletions, like operations must be grouped 
together and ordered j^y index number. Permitted modifications (b above) include replacing Zl, 
Zr on a card, interpolating geographic position and mileage given date/ time and Zl-ZA, and in- 
sertion of completely-sp^djf led data, i.e., date/time, latitude, longitude, distance along 
track, fl, Z2, Z3, Z4. Requires subroutines QUE, QTWO, QU^TWO, DAY, TPLIST. Author - R.K. 
Lattlmore. 



Director, Marine Geology and 

Geophysics 
Atlantic Oceanographlc and 

Meteorological Laboratories /NOAA 
15 Rlckenbacker Causeway 
Miami, FL 33149 



Available from originator only ^ 



Telephone (305) 361-3361* 



Seamount Magnetization 



Language - FORTRAN 
Hardware — IBM 7074 



Computes the magnitude and direction of magnetization of a uniformly joagnetized body from Its 
shape/and magnetic intensity. OS No. 53533. Author - G. Van Voorhis. \ 



Data Systems Office 

U.S. Naval Oceanographlc Office 

Washington, DC 20373 



Available from originator only 
Telephone (301) 763-1449 



Observation Difaplng (Gravity) - LanlgUage - FORTRAN 

Hardware - IBM 7074 i 

Reduces observation data taken with Lac oste- Romberg se^i/air o\ submarine gravimeters to ob- 
served gravity value and freerair anomaly. Interpolatesgfeographic position from smoothed fix, 
course, and speed. Generates^ BC^chart and x,y coordinates for Mercator proJectwLon for each^ 
station. OS No. 53543. Autfe^ - R.K. Lattlmore. - ^ ^ 




\ 



^ Data Systems Office Available from originator only 

U*S» Naval Oceanographic Office 

Washington, DC 20373 Telephone (301) 763-1449 

I. * 

True Ocean Depth ^ Language - FORTRAN 

PATHCR Hardware - UNIVAC U08/10K words 

Given the Fathometer depth and velocity profile, computes the trui ocean depth. The velocity 
profile is broken into constant gradient segments, the travel time integrated along the pro- 
file^, and the profile is extrapolated to continue to the estimated travel time of the Fa- 
thometer record. » ^ , , 
• 

Peter D. Herstein Available from originator only 

Naval Underwater Systems. Center 

New London, CT 06320 C Telephone (203) 442-0771, ext. 2305 

Plots Track and Data Profile Language - FORTRAN 

TRACK Hardware - CDC 3600/3800 

Plots a track and the superimposed bathymetry or magnetic profile on a polar stereographic 
projection. This profile series is plotted perpendicular to the track, using uncorrected me- 
ters or fathoms. Input: Data on tape, map parameter s^Sand command words via cards. 

James V. Massingill Available from originator only 
Environmental Sciences Section 
Naval Research Laboratory 

Washington, DC 20375 Telephone (202) 767-2024 ^ 



6E0DATA 



Language 
Hardware 



FORTRAN 

CDC 3600/3800 



Stores navigation, bathymetry, and magnetic data on magnetic tape in BCD form. Uses the format 
recommended by the National Academy of Sciences. 



James V. Massingill 
Environmental Sciences Section 
Naval Research Laboratory P 
Washington,, DC 20375 



Available from originator only 



Telephone (202) 767-2024 



Geophysical Data Storage and Retrieval 
.GEOFILE 



•Language - FORTRAN IV 

Hardware - CDC 3150/32K words/Disk/3 tape units 



Data storage and retrieval system for BI0*s geophysical' data. The programs sort, edit, merge, 
and display dat4 recorded at sea. Input: Magnetic tapes from BIODAL shipboard data logging 
system, bathymetiry data on punched cards, and navigation data. Output: Magnetic tape contain- 
ing all informattion recorded during cruises relevant to processing of geophysical data, sorted 
by geographical location. Computer note BI-C-73-3. ' 



Larry Johnston 

Bedford Institute of Oceanography* 
P. 0. Box 1006 
Dartmouth/ N.' S. B2Y 4A2 



Available from originator only 



Telephone (902) 426-3410 



Magnetic .Signatures 
MAGPLOT 



Language - FORTRAN 

Hardware - CDC 3600/CDC 3800/706,768 words/On- 
line plotter 
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Separates and characterizes the various components of magnetic noise In magnetometer records 
taken from a sensor toved at sea. Gives a printout of histogram data for each of three wave- 
J.ength filters: N (amplitude) <vs. amplitude; N (wavelength) vs. wavelength. ^Also producer 
plots of filtered ma^etlc fields as function of distance'. Program Is briefly descrlbedf ln| \ 
-NRL Foriiil Report No. 7760, "Geological and Geomagnetic Background Noise In Two Areas of \thfe J 
North Atlantic" ^ — ^ 



Perry B. Alers 
' NaV^l Research Laboratory 
Washington, DC 20375 



Available from originator only 
Telephone (202) 767-2530 



Sediment Size 



Language - FORTRAN 

Hardware - UNIVAC 1108/9K 36 bit words 



Produces frequency distributions for soil particle size values; applied to marine sediments. 

^ Joseph Kravltz . Copy on fUie at kODC (deck with documentation) 

I U.S. Naval Oceanographlc Office 
' ^ Washington, DC 20373 Telephone (202) 433-2490 



bottom Sediment Dlstrlb^tlpn Plot^f^ Language - FORTRAN V ^ 

Hardware - UNIVAC Xi08/23K/Drum/3 tape units/ 
/ CalComp 905/936 system 

Produces a plot of bottom sediment notation on a Mercator , projection, and a list of all data. 
Including cores, within specified are^. / 

WlW-iam Bernlnghausen , Copy on file at NODC (deck with documentation) 

U.S. Naval Oceanographlc^Of f ice « 
Washington, DC 20373 * Telephone (301) 763-1189 



Sand, Silt, and Clay Fractions 
DSDP /GRAIN 



Language - ALGOL 

Hardware - Burroughs 6700/19K words 



Computes sand, silt, and clay fraction^ In sediments. .The laboratory method consists- of dis- 
persing the sediment In Calgon solution, sieving the .sand fraction, and pipetting the silt and 
clay fractions. Input: Three* card files for laboratory data and one card file for interpret- 
ing an identifier attached to each sedijpent sample. Output: Listing with option for ternary 
plots and punched ^cai^ds. 



Peter B. Woodbury 

Deep Sea^^inrllling Project 

Box 1529 

U Jolla, CA 92037 



Soil and Sediment Engineering Test Data 



Aval lad 1^- from orlgit^^tor only 

Telephone (714) 452-35^6 
i 



Language - FORTRAN II-D 

Hardware - IBM 1620 II/IBM 1627 Model I Plotter 



Ehgineering ^ndox of Core Samples: Reduces data and tabulates results for tests on bulk wet 
density, vane shear strengths, original water content, liquid limit, plastic limit, and spe- 
cific gravity of solids; in addition, from the above results, other index properties are simul- 
taneously computed and tabulated; the output table lists results In columns representing e^ch 
depth se^ent analyzed. v - V • 

( 

(e Analysis with Direct Plotting: Input data are sample identification, sample weights, 
ster readings, and sieve readings. Output on plotter is a particle axze distribution 

Another program provides output on cards of a table with proper headings and values for 
|.e diameters and percent finer by weight.^ 




; ERIC 
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Carbonate - Organic Carbon Antflysis^o? Sediments : Reduces data from the carbon detcrminator 
and tabulates results of the analysis of deep ocean sediments for carbonate and organic carbon 
percentages; output is in same format as in program for engineering index pr^erties, to which 
the output from, this program is added. ^ 

J * ^ 

Direct Shear Test with Direct Plotting: Reduces data and plots shear stress vs. shear dis- 
placement with appropriate headings and labels; another program. Direct Shear Test, uses the 
same- datfiT formats but presents the results in the form of tabulations rather than plots. 

*Trlaxial Compression Test with Direct .Plotting: Reduces the data from trlaxlal compressslon 
tests and plots stress vs. strain with headings for sample identification, lateral pressure, 
etc. Another program reduces the same raw data and presents the results in the form o^ tabula- 
tions, one for each test. , 

^ Consolidation test (E vs. log time plot): Reduces the data obtained from consolidation test 
readings. Input Includes sample Identification and characteristic^ and test characteristics. 
The output is in two forms: plots and punched cards. The log of time is plotted-vs. the void 
ratio. , The cards are used as input to the next consolidation test program. 

Consolidation test (E vs. log P and C(V) vs. log P plots): Develops plots for void ratio vs.^ 
log of pressure and coefficient of consolidation vs. log of pressure. The^inprut consists of 
output cards from the previous program, together with the values of void ratio and pressure at 
100% consolidation and the time and void ratio at 30Z consolidation. These data were obtained 
from the plots of void ratio vs. log of time in accordance with the Terzaghl consolidation 
theory. 

Permeability Test with Direct Plotting: Reduces test data and plots curve of permeability vs. 
/time with appropriate headings and labels. ''The plottlng^scale is a variable Incorporated in 
/the program since permeability values for fine-grained soils vary throughout a wide range. 

Settlement Analysis: Estimates settlement values from laboratory test results* for deep* ocean 
foundation investigations. Input; Sediment properties and structure characteristics. Output: 
A table listing total settlement, footing dimensions, structure load, change in thickness of 
Incremental layers and corresponding depth in sediment, inftial stress, and change in stress. 

Summary 'Plots: Plots the results from the laboratory analysis of core samples. The input data 
are the output results on cards from the previous programs and miscellaneous analyses. Since 
the link system of programing is used, the^ items to be plotted can be Increased or decreased 
with slight modifications, depending on the user's requirements. Output is a sequence of plots. 
The depth into the sediment, column is 'plotted with reference to the ordinate, and the various 
properties along the abscissa <^n variable scales. 

NCEL Report No. R 366,'^ ^'Computer Reduction of Dat^ f rom Engineering ^ests on Soils and Ocean 
Sediments," by Melvln C. Hlronaka. > 

. / ' . 

Civil Engineering Laboratory Available from KTIS Order. No. AD 666 311 

Naval Construction Battalion Center $5.75 paper, $2.25 microfiche. 

Port Hudneme, CA 93043 , ^ 
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BIOLOGY 



WHOI Biology Series 

FTAPE 
FLISHT 

CHKSPIT 

SELECT f 
CHANAT 
^ PREPLOTG . 
PLOTSPECG 
STATAB 



Unguage - FORTRAN IV 

Hardware - XDS Sigma 7/plotter optional 
9»000 words 
'9,054 words 
32,430 words 
58 words 
^ 16,751 words 
12,200 words 
18,000 words ^ 
4,16'4 words 



FTAPE generates a tape containing station data, species data, and systematic prder information. 
FLISHT prints a list in systematic order of the species from the tape, including stations, num- , 
bers, sizes, and weights, with a final summary. Subsets can be specified with* subroutine 
SELECT- 

CHKSPIT summarizes catch in^prmation from any specified set of stations on the tape made by 
FTAPE, including data for all species, a listing of the top-ranking species by number and 
yeight,* various diversity indices, and percent similarity between se^s. CHANAT analyzes a 
transect for faunal breaks, following . the method of Backus ''et al (1965, "The Mesopelagic Fishes /> 
Collected during Cruise 17 of the RV CHAIN, with a Method for Analyzing Faunal Transects," Bull. 
Mus. Comp. Zool. Harva^^ 134 (5) :139-158) , using the data on the tape made by FTAPE. 

r 

PREPLOTG and PLOTSPECG plot a distribution map for any species on the tape made by FTAPE, with 
indications of vertical distribution, catch rates, and negative data; the two programs must run 
toge^er; input includes tap^ from NODC with world map outlfnes; output can be plotted oa 
CalComp or Versatec Plotters. 



/ 

STATAB prints in readable format the information cont^iined in the station data file made by 
FTAPE or on the input cards. 



'R.L. Haedrich 

Woods Hole Oceanographic Institution 
Woods Hole, MA 02543 



Available 'from or^.ginator only 
Telephone (617) 548-X400; ext. 354 



Optimal Ecosystem Policies 
OEP * 



Language - FORTRAN 

Hardware - IBM 370/180K/REGI0N-180 



To approximate optimal management policy for an aquatic stream ecosystem, program produces a 
sequence of converging values of an objective function, optimal values of decision variables, ^ 
and simulation of the ecosystem using optimal decisibns* Input: Parameter values (defaults 
built in), program constants, species interaction matrices. Determinis$iq or Monte Carlo simu- 
lations (user, specified) are fit to state equations, from wlfich the optimal policy is found* 
using the discrete maximum principle. ^ 



Robert T. Lackey 
Department of Fisheries and 
* Wildlife Sciences 
Virginia Polytechnid Institute 

imd State University . 
Blacksbur-, VA 24601 



Available from originator only 



, 1 



\elephone (703) 951-6944 



Inverse Problem in Ecosystems Analysis Language - FORTRAN. IV ^ 

Hardware - UNIVAC 1108/lOK 6 character wdrds 

Performs systematic analysis and modeling^ of interacting species in complex ecosystems, using a 
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hed lteratlv,6 technique for regression analysis as well as statistical hy^ 
Input: a user-written ^ubroutlne defining the general structure of the eco- 
specles population vs. time data to be analyzed. Output: -^A mathematical 
model of the ^ecosystem which has the most simple structure adequate to explain the observations* 
For an example, see "A Systematic Approach to Ecosystems Analysis," by Curtis Mobley, J. Theo- 
retical Biology, Al, 119-136 (1973). Program documentation In NRI Tech.* Ref . 7Z-8A. 



Curtis Mob ley 

Dept. of Meteorology (IFDAM) 
University of Maryland 
College Park, MD 207 A 2 



Available fz^m originator only 



Telephone (301) A5A-2708 



Toxicity BloasQay 
PROBIT ^ANALYSIS 



Language - FORTRAN IV Level G 
Hardware - IBM 360/AK bytes 



A routine *met hod for the analysis of all-or~none acute toxicity bloassay data. Input: Number 
of concentrations, tabular text statistics (F, "t," Chl-square) , number of organisms tested and 
number dead in each concentration and control. In general, mortality^ must be related to x^on- 
centration. A minimum of three concentrations, with a partial kill both above and below 50Z Is 
required.^ Output: LC3Q 5Q jq values with upper ^d lower 95% confidence llmltj^; Inter- 
cept » slope and standard 'error ol regres^on line, and several additional meastures of goodness. 
"Problt Analysis," by D.J. Finney, Cambridge Universtty Press, 1971. Progra^ writ ten by 
A.L* Jensen, School of Natural Resources , University of>Mlchlgan, Ann Arbor Michigan A810A. 



^Patrick W. Borthwlck 
Gulf Breeze Environmental 

Research Laboratory 
^Environmental Protection Agency 
Sabine Island, Gulf Breeze, 

FL 32561 



Copy on file at NODC (listing, documentation) 



Telephone -(90A) 932-5326 



Species Affinities 
REGROUP 



Language - FORTRAN 
Hardware - CDC 3600 



The program first determines the numbers of occurrences and joint occurrences of the species in 
the set of samples; it then calculates an index of affinity for each pait of species. The spe- 
cies .are ordered in terms^ of the numbers o^ affinities they have, and this list is printed along 
with a ll^t of names, code numbers, and numbers of occurrences. The program then determines 
the largest group that could be formed, tests to see whether that many species all have^^ffin- 
Ity with each other and, if they do, prints out the group. If thefy do not, it tries the next 
smaller group, etc. Those species which had^ affinity only with this group ^- and/or earlier 
groups — are listed. ' The remaining species are reordei;^ed and the process continues until all 
species have^been put either in giroups or in tKe list of species with affinities with groups- 
Limits — 200 species. Author - E.W. Fager. 



Scrlpps Institution of Oceanography 

P.O. Box 1529 

U Jolla,'CA '92037 



Copy on file at NODC (listing, documentation) 

•A 



Productivity 
OXYGEN 



Language 
Hardware 



FORTRAN IV 
CDC 6600 



Determines productivity by oxygen, diurnal curve method. Input Includes oxygen concentration 
and oxygen probe parameters. Output contains net and gross productivity and R/R plus original 
data. Author - William Longley. ' * 



Marine Science Institute 
The Unlverahity of Texas 
Port Aransas, TX 78373 



Copy on file at NODC (listing, documentation) 
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Species Diversity 
JOB 



Language - FORTRAN IV 
Hardware - CDC 6600/50 



^^60 bit words 



Calciaates species diversity index for numbers of organisms and/or weigfit of organisms, utiliz- 
ing the diversity index equation derived from Margalef, The program calls subroutine SEASON, 
which calculates seasonal aVerages for a given statibn, seasonal limita/being indicated by a 
control card. This subroutine outputs mean, standard deviation, and range of diversity indices 
for each seasonal group. Other desired g;:ouj)ings may be entered by a groupings control card. 
Author,- A,D, Eaton, 



Marine Science Institute 
The University of Texas ^ 
Port Aransas, TX 78373 



Copy on file at NODC (listing, documentation) 



tatl^n) 



Productivity Language - FORTRAN IV 

-fiCpPROD ^ Hardware - CDC 6600/25 K 60 bit words 

Computes gross and net productivity, respiration, P/R ratio, photosynthetic quotient, effi- 
ciency, and diffusion coefficient, given sunlight data and diurnal measures of oxygen and/pr 
carbon dioxide. Author - William Longley, • ^ 

Marine Science Institute Copy on f,ile at NODC (listing, documentation) 

The University of Texas 
Port Aransas, TX 78373 



Concentrations per Square Meter of Surface Language - FORTRAN IV i 

o . Hardware - IBM 7074-11/7040 DCS/2231 



^rds ^ 



Computes various chemical and biological compound concentrations as»well as productivity rates 
per square meter of water surface from integrated values on per volume basis. Ten concentra- 
tions and rates are integrated over up to seven pairs of optional depth limits,* Report 0WMS- 
1006, June 1966, Source deck has 771 cards. Authors - Leilonie Q, Gillespie and Linda S, 
Green, , ^ - * *^ 

Department <Jt Oceanography * Copy on file at NODC (^ibove report) ^ 
University -of Washington , ' * , 

' , Seattle, WA 98105" ' . 



Combined Chlorophyll and Productivity ' • Unguage - FORTRAN IV 



Hardware - CDC 6400 



Computes assimilation of productivity in seawater; also computes the quantities of chlorophyll 
A, fe. and C, and the amount of carotenoids in seawater. The chlorophyll program determines 
the. amount of plankton pigments using the equations of Richards and Thompson, The prodUQ^ivity 
program (Carbon 14) determines the production of marine phytoplankton by using Neilsen's 
method. Output consists of both printed matter and of library cards^; the Cards may be used as 
input to a multiple^egression program to derive a relation between productivity^ and chloro- 
phyll A; a plot routine may be called to graph one or several variables as a function of depth ,^ 
or to display the horizontal distribution of any given property. Written by Marsha Wallin, 
Nov, 1963, based on, two programs prepared in 1962 for the IBM 7Q9 by M,R, Rona; revised in 1969 
for the' CDC 6400, ' . ' • - ^ 

, Department; of Oceanography Copy on file at NODC (listing, documentation) 

University of Washington ^ > 

Seattle, WA 98105 



RIC 
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Phytoplankton Numbers » Volumes and Surface 
Areas by Species 



Language - FORTRAN IV and MAP 

Hardware - IBM 7094-11/7040 DCS/23,836 words 



Two programs » differing only In Input format, compute concentrations of cell Qumbers, cell sur- 
face areas, and cell and plasma volumes In marine phytoplankton populations, with option to com 
pute mean cell areas, mean cell volumes, and mean plasma volumes, as well as the ratios: cell 
area to cell volume and cell area to plasma volume* The Input quantities are obtained from mi- 
croscopic examination of seawater samples* A subroutine computes the afea» volume, and plasma 
volume of a cell from measured dimensions of diverse species* Source deck has 1^21 cards* > 
Special Report No, 38, M66-41, July,.1966, by Paavo E* Kovala and Jerry D* Larrance* 



Depairtment of Oceanography 
University of WashingTon 
Seattle » WA 98105 



Copy on file at NODC (above report) 



Program to Generate a Taxonomic Dlrjectory 
of Deep-Ocean Zooplankton 



^Language FORTRAN IV . 
Har'dw^re - UNIVAC 1108/20K Vords 



Generates a data file (taxonomic directory) which class'ifies and catalogs various species of 
deep-oceaa* zooplankton collected in water samples for the purpose of studying the population 
and distribution statistics of these species* Input: Cards containing either the phylimi, 
class, order, genus, or species name and the appropriate identifying numbecs associated with 
each of these categories* NUSC Technical Memorandum No* TLrl04T71, May 1971* 



Drew ^rinkard 

^ Naval Underwater Systems Center 
New London, CT 06320 



Available from originator on).y 
Telephone (203) 442-0771, ext* 2127 



Deep-Ocean Zooplankton Distribution 




Language - FORTRAN IV 
Hardware - UNIVAC 1108/30K words 

The purpose of tTTo>^rogram is to study the distribution statistics of the deep-ocean zooplank- 
ton species within aS^^articular taxonomic category* The distribution charaoteristics of the « 
individual species are examined for both the individual net samples which have been collected 
at various sampling depths and the combined xiet samples for a given tow* Input; Station data, 
sample data, species abundance data on cards, and a hash table species directory (program ^ 
available for generating such a hash table) • l^cords total count for each species to^ which the 
various organisms collected in the samples belong* For the individual net samples, computes 
the percentage of the total taxonomic category which each species in the sample represents* 
For the combined net samples, both the percentage" of the total taxonomic category and the per- 
centage of the entire sample (all taxa included) are computed* Finally, the population den- 
sity of each species within its ta^nomtc category is calculated. NUSC Technical Memorandum 
No. TL-107-71» May 1971. ^> ^ ' ' 



Drew Drinkard 

Naval Underwater Systems Center 
New London, CT 06320 



Available from originator only 
Telephone^ (203) 442-0771, ext* 2127 



peep-Ocean Zooplankton Population Statistics Language - FORTRAN IV 

Hardware - U^VAC 1108/30K 

Produces population statistics for both the individual net samples collected at various deptjis 
and for the combined net samples. Input: Station data, sample data, spe€ieB abundante data 
on cards » and a taxotf&mic directory on mass storage device* Egch species is identified by phy- 
lum and class with the aid of the taxonomic directory* The organisms are counted according to 
the phylum or class* Total counts for the entire sample are calculated for each category. The 
population densities of each category are computed* Also calculated is the percentage of the 
total sample that each taxonomic category represents* NUSC Technical Memorandum No* 11.-106-71, 
May 1971. • . ' ^ , 



53 



63 



« 



Drew Drinjjard , 

Naval Underwa'ter Systems Center 
New Londoh, CT 06320 ' 



Available Jrom originator only 
Telephone (203) 442-0771, ext. 2127 



PIGMENT RA' 



RAmo 

a 



Language 
Hardware 



fortr)^ IV 



FORTRAK IV 
IBM 360/less than 500Q bytes 



Computes /ratiosV Chi a/Carot, Pheo/Carot, (Chi a + Pheo)/Carot, Chi b/Carot/Chl c_/Carot, and 
Fluor/ (Chi a + Pheo). Inp'ut : Sample identification, chlorophylls a, b, £, carotenoids, pheo- 
pigments, and fluorescence on cards. Output: Printed sample identification and ratios. "A 
Computer Program Package for Aquatic Ecologists /' by Paul J. Godfrey, Lois White, and Elisabeth 
Keokosky. ^ <^ ' " 



Paul J. Godfrey 

Department of Natural Resources 
Cbrnel^ University, Fernow JIall 
Ithaca, NY 14850 



Copy on file at NODC (listing, documentation) 
. Telephone (607) 256-3120 



SUCCESSION 



Langtia^- FORTRAN IV : 
Hardware - IBM 360/4440 bytes 



Gpmputes succession rate of community based on measure proposed by Jassby and Goldman of rela- 
tive change in each species* biomdss. See "A Quantitative Measure of Succession Rate and Its 
Application to the Phytoplankton of Ukes," by A.D. Jassby and C.R. Goldman, 1974, Amer. Natu- 
ralist 108:688^3. Input: Integrated species biomasses and Sampling date in calenda^^days . 
Output: Printed sample identification values, dates defining interval in each succession rate, 
and succession rate. ^'A Computer Program Package for Aquatic Ecologists," by Paul J. Godfrey, 
sjois White, artd Elizabeth Keokosky.' ^ 

jCopy on file at^NODC (listing, documentation) 



Paul J. Godfrey 
Department of Natural Resources 
Cornell University, Fernow Hall 
Ithaca, NY 14850 



Telephone (607) 256-3120 



Species Abundance 
SPECIES 



Language 
Hardware 



PL/1 

IBM 360/250K 



This series of three^ programs was developed to accept species abundance data in it's.^implest 
form, check it for errors, produce lists of species abup^nces where comparisons may be made 
between days, depths, lakes, stations or years, and convert the input data to a form accept- . 
able to packaged programs. Output: Listings of species abundances, summary daU including 
total abundance, number of species and diversity, and subtotals within user-determined groups, 
punchea output of summary data. "A Computer Program Package fof Aquatic Ecologists," by Paul 
J. Godfrey, Lois White, and Elizabeth Keokdsky. * 



Paul J. Godfrey 

Department of Natural Resources 
(Cornell University, Fernow, Hall 
Ithaca, NY 14850 




on file at NODC (listing, documentation) 



ne (607) -256-3120 



Yield Per Recruit 
RYLD, BIOM 



Language 
Hardware 



FORTRAN IV 
IBM 1130 



Computes the approximate yieVd of a fish stock per recruitment by either of two methods (arith 
metic or exponential approximations), or siihply computes' the stock biomass when there is no 
fishing.' Outputs An equilibrium yield matrix with up to 400 entries corresponding to 20 
ages at entry and* 20 multipliers. Technical Report No. 92 (unpublished manuscript). No. 1968. 
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6,4, 



Authors - L,V, Pienaar and J. A. Thomson, Earlier version written •by L,E, Gales, College of 
Fl8herle8» .University of Washington. [ 



Fisheries Research Board of Can< 
Biological Station 
Kanainio» %.C. 



Copy on file at NODC (above report) 



Chlorophyll 
CHLORi 



Language - FORTRAN 
Hardware - IBM -370 



Calculates chlorophyll in mg/m according to B&P extraction* spectrophotometric technique. 
Input: Raw absorbences. Author - Stephen A. Macko. 

B.J^. McAlice Available froii| originator only 

Ira C. Darling Center (Marine Laboratory) 
University of Maine at Orono 

Walpole, ME 04573 * Telephone (207) 563-3146 



Phytoplankton Population Density 



Language - WATFIV FORTRAN 
H^dware - IBM 370 



Computes species densities and population percentages and relative diversity from cell counts. 
Output formatted according to taxonomy in/FAO Fisheries Technical Paper^ ^^12. Author - Stephen 
A. Macko. 

y 

B.J. McAlice . Available from originator only *" 

Ira C. Darling Center (Marine Laboratory) . . ' . 

• University of Maine at Orono ' ' — 

^ Walpole, ME 04573 . - j: Telephone (207) 563-3146 



Species Diversity 
DVRSTY 



Language - WATFIV FORTRAN 
Hardware - IBM 370 



From unformatted raw data, produces^^pecies diversity, and diversity matrix. 



B.J. McAlice 



Ira C. Darling Center (Marine Laboratory) 
University of Maine ar Orono 



Available from originator only 



Walpole, ME '04573 



Telephone (207) 563-3146 
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FISHERIES 



Length Frequency Analysis 
LEHFRE 



Language - FORTRAN 
Hardware Burroughs 6500 



Uses three methods of stratification to expand sample length frequencies in dffferent strata, 
ihe program was developed for tuna fishery samples. Input: Sample length frequencies for up 
to 80 strata, alpha and beta, for the length-weight relation, von Bertalanffy growth' t)arameters , 
Output: Tables of sample length frequencies, expanded length frequencies (expanded by total 
catch), weight in each length interval, by strata; total frequencies for all strata combined; 
average length ^nd weights .and age; catch per unit ey^ort. 



Atilio L,/<;o^, Jr. 
Southwest Fisheries Center 
rational htorine Fisheries Wervice, 
r^.O. Box 271 

La JoUa, CA 92037 



Available from originator only 



NOAA 



Telephone (714) 453-2820, ext.^85 



Yield per Recruit for Multi-Qear Fisheries 
MGEAR 



Language - FORTRAN 

Hardware - Burroughs 6500/6,200 words 



Computes estimates of yield per recruit and Several related parameters for fisheries that are 
exploited by several gears which may have differing vectors of age specific fishing mortality. 
The Ricker yield equation is used> Input is limited to 4 types of gear, 30 age intervals, and 
10 levels of fishing mortality. Output: Besides tables of yield per recruit, landings per 
recruit when fish below minimum size are caught and t^en discarded dead, average weight of fish 
in catch, and yield per recruit nfix effort as functi(^s of minimum size and amount of fishing 
effort are provided for each a^arand for the entire fishery. The program ha^ been used for 
evaluating propped minimui^iW-Tegulations for the yellowf in tuna fishery of the tropical 
Atlantic, a fishery exploited by four types of vessels (Ijait boats, small purse seiners,, large 
purse seiners, and longliners) having quite different vectors .of age specific fishing mortality. 

Available "from originator only 



William H. Lenarz 
Southwest Fisheries Center 
National Marine Fisheries Servite, NOAA 

P.O. Box.271 . ^ * 

La Jolla, CA 92037 Telephone (714) 453-2820, ext. 280 



Resources Allocation in Fisheries Management 
PISCES 



Language 
Hardware 



FORTgAi^' IV 
IBM 370/125K 



Uses a Monte Carlo simulation to predict the effect of fisheries management programs upon the 
distribution and abundance of angler consumption. Input: State fisheries agency data and man- 
agement plan. Output: (1) Predictions of the number and location oT angler-days throughout a 
state; (2) Standard deviations. "PISCES: A Computer Simulator to A'id Planning in State Fish- 
eries Management Agencies," by R.D. Clark, MS Thesis, VPI&SU. 



4 



Robert T. Lackey 
Department ol Fisheries and 

Wildlife Sciences 
Virginia Polytechnic Institute 
£ and State University 
Blacksburg, VA 24061 



Available from originator only 



Telephone (703) 951-6944 



Computer-Implemented Water Resources 
, Teaching Game, DAM 



ta'nguage - FORTRAN IV 

Hardware - IBM 370/120K/Interactive terminal 
desirable 
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ERLC 



Using a simulation of an existing reservoir system, this computer-assisted instructional game 
fllusttttt^s the management of a large multiple-use reservoir system. Input: Student manage- 
ment decisions for (1) a regional planning ^commissioner, (2) a fisheries manager, (3) a powet 
company* executive, W) a recreation specialist, and (5) a city mayor. Output: Status of res-- 
ervoir s^stqm, including human components. 

Robert T. ^Lackey Available from originator only 

Department of Fisheries and 

Wildlife Sciences 
Virginia Polytechnic Institute 
^ and State University 

Blacksburg, VA 24q61 . Telephone (703). 951-6944 

. \ ^ , . 

A Generalized Exploited Population Simulator Language - FORTRAN 
GXPOPS ' ^ Hardware - Burroughs 6500/CDC 3600 

GXPOPS is a generalized exploited population simulator designed for Use on a wide variety of 
aquatic life^history patterns. Population processes programed ijato the present version are 
(1) month-specific and density- independent mortality rates on the recruited population, (2) 
density-in<^P^ndexit growth, (3) sex-specific and age-specific, but density-independent, matu- 
ration, (4) Reproductive success due to random mating, and J5) density-dependent or density- 
independent recruitment. Mortality, growth, and maturation pan be made density-dependent 
through the Addition of subroutines. The unit length of time is the rep^itfautrClve' cycle, com- 
monly a year in temperate species; computations are performed each one-twelfth of a unit, 
thereby representing a month for most species. 

There "are ?hree output options. For each year the complete output option lists monthly (1) the 
average year class size, yield in numbers and weight for any six consecutive year classes, (2) 
the^ total initial population size, (3) the average total fishable population, (4) the total 
yield in nun^ers and wtifight, and (5) the average sex ratio. Annual summaries of initial popu- 
lation, average population, average fishable population, yield in number and weight, affl the 
spawning success are provided" by year class for the total population and for the fishable tota^ 
population. The moderate option lists only the ^RJnthly summary totals and the annual summary 
by year class. The minimum option, suited for long simulations^ lists only the annual sunteary 
by year class and for the total and fishable total population. GXPOP'S is dimensioned to handle 
t)ie computations for up to 30 year dlasses^ but, in order to economize on space, the output is 
dimensioned 'to list up to 6 consecutive year classes only. The FORMAT statements must be re- 
written to list an additional number of year classes. "A general life history exploited popu- ^ 
lation simul'ator with pandalid shrimp as an Example," by William W. Fox, Jr., Fishery Bulletin, 
U.S», 71 (4): ;0l9-lp28, 1973. 

William W. Fox, Jr. Available from originator only 
, Southwest B*lsheries Center 

National Marine Fisheries Service, NOAA 

P.O. Box 271 9^ * , 

U Jolla, CA 92037 Telephone (714) 453-2820, ext. 345 



Generalized Stock Producti6n Model ^ Language - FORTRAN ^ 

PRODFIT ' Hardware - CDC 3600/Burroughs 6500 

Input i* (Option 1) A catch and fishing effort history and a vector of significant ^ear class 
numbers are read* in; the catch per unit effort is computed intemar\ly and the averaged fishing 
effort*" vector is computed with subroutine AVEFF; (Option 2) The vectors of catch per unit ef- 
fort and averaged (or equilibrium) fishing effort are read in directly. Output includes a* 
listing of the input data, the^ransformed data, initial parameter estimates^ the iterative 
solution steps, the management iimlications of the final model *Umax, ^opt, ^opt, and ^max and 
their variability indices, the observed and predicted values and error terms, estimates of the 
catchability coefficient, and a table of equilibrium values. (*^max is the relative density of 
the population before exploitation; ^opt is the relative population density providing the ma^- 
imum sustainable yield; ^opt is the am<^nt of fishing effort to obtain the maximum sustainable 
yield; and ^max is the maximum sustainable yield,) "Fitting the generalized stock production 



model Iea8t*^8quare8 and equilibrium approximation,'* by William W. Fox, Jr, Fishery bulletin » 
U.S., In press. * ^ • *. * 

r . 

William W, Fox, Jr, * ' Available* from originator only < 

Southwest Fisheries Center * ^ ' ^ * 

National Marine Fisheries Service, NOAA 

f,0. Box 271 • , — . ' . 

La Jolla, CA 92037 Telephone (714) 453-2820, ext. 345 

Normal Distribution -S^oarator . Larig^ge - FORTRAN V * ' ^ 

TCPAl ) ^ , Hardware - Burr^u'ghs 6700 * 

Separates a length- frequency sampling^ dlstrlbutloh into K component normal distributions. Used 
to estimate age ^oup relative abundance in length samples of u^ageable species.^ The method is 
statistically superior to graphical procedures. Also, the program will produce estimates of 
the percent composition by age group and the number of fJ.slK.ln the sample^^rom each age group. 
Output include"^ a plotted histogram, the observed f reque^ncies, and all e^imated values. The 
value of K may 1^ from one to ten. "Estimation of parameters for a mixture of normal d^pstribu- 
tlons," by V. Hasselblad, T^chn9metrlcs 8C3) :4il-441, 1^6. Author - Victor Hasselblad; modi- 
fied by Patr^cl^^K. Tomllnson. ' , 

Christopher T. Psaropulos ^ 'Avallabl^^ from originator only * 

Inter-American Tropircal Tuna Commission * , 

Southwest Fisheries Center 
^ost Office Box 271 

Jolla, CA 92037 ^ Telephone (714) 453-2820^ .ext. 310 or 253 



Spawner-Recruit Curve' Fitting Language' - FORTRAN 

TCPA2 . Hardware - Burroughs 6700 

Esttc aa^ es the parameters of the Ricker spawner- recruit curve, R ASe"^^, from fitting the 
logari^ic transformation Ln(R/S)" 2-nA-bs, by the method least squares*^ S is the spawn- 
ing bio-mass, R is the recruit blomass, and A and b are^ constants. From the fitted curve a 
table of spawning stocks and resultant recruitments is produced* The curve is d;|.scussed in 
"Handbook of computations for biological statistics of fish populations-,** fe^ W,E. Ricker, Bull. 
Fish.Res.Bd. Canada (119)j1-30O, 1?B8. Author - Patrick K. Tomlln. 



istopher T. Psaropulos " Available from originator only 

Inter-American Tropical Tuna Commission 

Southwest Fisheries Center "\ - • 

Post Office Box 271 . 

La^Jolla,>CA 92037 Telephone (714) 453-2820, ext. 310 ot 253 



Weight-Length C^rve Fitting * Language - F^TRAN . 

70 

rb 



TCPA3 . " Hardware - Burroughs 6700 



Fits a curve giving weight as a function of length of the form W ■ a L where W is the weight 
and L is length. I|t^roduces a table of fl^ted^elghts and lengths and provides various, re- 
lated statistics. ^« method of "fitting involved linearization by common logarithms arid the 
usual least-squares^procedure for fitting a straight line. Author - Norman^. Abramson; modi- 
fied by Patrick K. Tomlinson and Catherine L. Berude. *■ 

i<&lstopher T. Psaropulos \ Available frofe 6rlglnator only^ ' ^ \^ 

J/nter- American Tropical Tuna Com^aission ^j^s^^ ^ ^ 
Southwest Fisheries Center 

\= 




Post Office Box 271 

U Jolla, CA 92037~ '^^Telephone (714) ^53-2820, ext. 310, or^53 
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Age Composition Estimation Language - FORTHAK 

TCPBl , Hardware - Burroughs 6700 

r 

Estimates ^ges lompQsltlon using a double sampling scheme with length as strata. Also provides 
estimates ^suming simple random sampling of aged fish. Under the double sampling scheme, the 
first sample is of lengths Cl^gth frequency) to estimate length-strata sizes; tlie second or 
mdin sample is for ages* The second sample can be drawif (1) independently, (2) as a subsample 
of the first, or C3) as a subsample within length strata. "A method of sampling the Pacific 
albacore CThunnus germo) catch for relative age composition," by D.J. Mackett, Proc.WQrld.Sci. 
Meit.Blc^l. Tunas & Rel.Sp., ?JiO Fish.Rpt. No. 6, Vol. 3, 1963. Author - D.J. Mackett.^ . ^ ^ 

Chrlstophetr T. Psaropulos Available from originator only ^ ' * 

Inter-American Tropical Tuna Commi^^on 
Southwest Fisheries Center 
Post Office Box 271 ' 

U Jolla, CA 92037 • Telephone (714) '^53-2820, ext. 310 or 253 



Best Current Estimate of Kumbers, Percentages, Langxiage - FORTRAN ' 
and Weights of Fish Caught, TCPB2 Hardware - Burroughs 6700 

Given any number of length detail cards for fish sampled during a given bimonthly (or oth^r) ^ 
period, this program calculates by primary area and gear: Cl) The number of fish sampled at 
each length- frequency interval; C2) the percentage of fish sampledjat oach length-frequency in- 
terval; (3) the smoothed percentage of fish sampled at each length-frequency Interval; (A) the 
average weight of the fish. With the input of the corresponding catch data the program makes 
estlimates of the number of fish caught at each length-frequency Interval £or the given period 
by primary area and gear. The program also^ makes estimates for the given period for both gears 
combined for each of the primary and secondary areas of (1) through CA) above. It estimates 
the same thing for each gear separately and for each of the secondary areas. Finally the pro- 
gram makes estimates for the given period and all preceding periods of that year combined for 
each gear separisttely and both gears combined for each of the primary and^ secondary areas of (1) 
through (4) above and ^the total weight of fish caught at each len^h- frequency interval. Limi- 
tations: (a) The cards for. each period must be kept separately and the periods must be in 
chronological order; Cb) gear 2 must follow gear 1 in the catch cards; (c) although any number 
of periods may be run consecutively, it must be kept in mind that all of the periods will be 
summed to compute the best current estimate; 0^) the maximum niomber of lei\gth frequencies is 
80> gears 2, and primary areas 7.' Author - Christopher T. Psaropulos. ^ * 

^ Christopher T. Psaropulos Available from originator only 

Inter- American Tropical Tuna Commission 

Southwest Fisheries Center >^ " 

Post Office Box 271 ^ ^ • 

. La Jolla, CA 92037 Telephone (714) 453-2820, ext. 310 or 253 



Length-Frequency Distribution of Market Language - FORTRAN 

Keasurement Sampling, TCPB3 Hardware - Burroughs 6700 

G^^n any number of length detail cards for fish sampled with input of corresponding catch data 
during a year period, this program Cuaing the same methods as TCPB2) summarizes, by quarter, 
inark^t n^ea^urement area code, ^d for each gear, o^ combined: Cl) The average weight, and the 
number of fish caught at each quarter; (2) the raw and smoothed percentage of fish sampled and 
caught at each length- frequency internal; (3) the ni^pber of fish sampled and caught at each 
length- frequency Interval. Author - Christopher T. Psaropulos. © 

Christopher T. Psaropulos Available from originator only 

Inter-American Tropical Tuna jCommission /; 

Southwest Fisheries Center ^ 

Post Office Box 271 * ' ' 

U Jolla, CA^ 92037 > Telephone ^714) 453-2^20, ^xt. 310 or 253 
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^ Von Bertalanffy , Growth C\xl6fl Fitting Language - FORTRAN 

TCPCl ' Hardware - Burroughs 6700 

Fits the-^roa Berta^ranffy growth-in-length curve to unequally spaced age groups with unequal 
sainple sizesS^r separate ages* it fits the equation " length (at age t) - A+BR^; t)<R<Fl (1) 
by least squares when data* of the form (length, age) are given in pairs (Lj., t). *The program 
minimizes the function Q - fCLt - A - BR^)2 by use of the partial derivatives evaluated near 
zero. ^ . . > 

Output is in the von Bertalanffy form, where A - L<», R - e~^ or K " -log^R, B « -L<»L^^° or t^ « 
lloge<;-B)-log^3/K. 

The output gives values of the expected length at age using equation (1) evaluated at ages se- 
lected by Jthe user. The pairs (Lt> t} may be read into the program in two different ways. The 
^ficst assumes that no type of ordering or sorting has occurred and that each (L^* t) represents 
a si ngle fish. The second method allows for frequency distributions and the user provides a 
triple (L^, t, m) where m is the numb.er pf times (or some weighting factor) the pair (L^, t) is 
to be fised. Author - Patrick K. Tomlinson. 



Christopher T. Psaropulos .Available from originator only 

Inter-American Tropical Tuna Commission 

Southwest Fisheries Center * ' 

Post Office Box 271 , * * 

La Jolla, CA 92037 ^ Telephone (714) 453-2820, ext. 310 or 253 

Von Bertalanffy Growth Curve for Unequal Langua^«^,p>1^0RTBAN 

Age Intervals ' ^ Hardware - Burroughs 6700 

TCPC2 ^ £> . V 

Uses the method of Tomlinson and Abramson to fit length atv age data to the von Bertalanffy 
growth equation Lt » L« (1 - e"^(*^"*^o)) where L^ « length at time t^, L« « asymptotic length, K - 
growth constant, and to » theoretical time at which Lt " 0. ^The age interva'Jts--do not need to 
be equal. .Limitations: ^e number of lengths for each age' group jjmst be at deast two and not * 
more than 500. (If only one length, or a single mean length, is ^vailAble for a given age 
group, it may be punched twice.) X^e maximum number of age groups' is 40. The output includes: . 
^(1) estimates, of Uo, K, and t^ from each iteration of the fitting process; (2) final estimates* 
of Loo, K, and t^^ (3) standard errors of Loo, and Iq; (4) fitted lengths ^pr age 0^^^'hrough 
the maximum included in tlj^ input; (5) mean lengths of the samples at each age group; (6) . x 

standard errors of the mean lengths in the samples; (7) .the number of lengths ^ in, each age 
group; (8) variance-covariance matrix; (9) standard error of estimate. "Computer programs for . 
fisheries problems," by Norman J. Abramson, Trans. Amer^ Fish. Soc* 9^(3) :31C(,' 1963. FlttJlig a ' _ ' _ 
von Bertalanffy growth curve by least squares including tables of polyno«fcals," by Patrick K. , ^ 
Tomlinson and Norman *J. Abramson, Fish. Bull. Calif .Dept,J?lsh & Gapie 116:69 p:,^ 1961. Author - ^ 
N.J. Abramson. ^ee also TCPC 3.) ^ i/ ' ' ^ ' 

f. , ' 
1 . Christopher T. Psapopulos Available from originator only ' * ' 

Inter- American Tropical Tuna Commission ' , . ^ ' ^ 

Southwest Fisheries Center'' • ' * j ^ '* * 

Post Office Ibox 271 - . ; X- • * ' 

La Jplla, CA 92037^ T^le^hon^ (714) 453-2820, ext. 310 or 2^3 - ^ 

■ ' ■ - ^ » \ , - . , 

Von Ber^lanffy Growth -CCirve for , L^guage, - FORTRAN , ^ ? ^ , ^ 

Equal, Age Intervals ^ Hardware - Burroughs. 6700 ' ' * ^ 

TCPC3 ' ' . ' / y ^ • * ^ 

• ' ^ • ' >^ .r ^ 

» ^ * . - . • * / 4 

Similar to TCPC2. However, the age. intervals must be equal with at least two pbafervel lengths ^ 
at each age. ^The program always yields estimates when a least-squarcs splution exlsti, and 
Immediately terminates* the run when th,ere is rno solution. In this* respect it is superior to ^ o 
TCPC2, whi^ occasionally doe's not converge to estimates even when a si)lution ^exists *Aur- 
thor - N.J. Abramson, - ' * 
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Christopher T, Psaropulos Available from originator only 

Inter- American Tropical Txma Conmission 
Southwest Fisheries Center • « - 

Post Office Box 271 

La Jolla, CA 92037 * ^ Telephone (714) 453-2820, ext. 310 or 253 

Von Bertalanf f y Growth Curve Fitting Language - FORTRAN , 

TCPC4 Hardware - Burroughs 6700 

Estimates the parameters JL^d L» of the von Bertalanf fy growth-in-length curve when only the 
lengths of individual fish at two points in time are .Known. This allows the curve to be fitted 
to tag release and r,ecovery data, Fitp equation Cl) by least squares when data are of the^^orm 
(initial length, final length^*tipie~elapsed) , ^ * - 

0 * ' 

Lt + At ■ ^t +ACi-R^^); 0<I^<1 (1) • 

Lt is the initial length; Lj.+At is the fin^ length, and At is the time elapsed, Given^n 
triples (L^, L^'^'At'i equation (1), the program minimizes the function. 

Q - ^ ttt+At " ^t " ^ (l-R^)]^ by use of t-he partial derivations evaluated 

near zero. Output is in the von Bertalanf fy form, where L "*A and K ■ log^R, The output 
gives values of the expected length using equation (1) evaluated at an initial length and time 
lapse selected by the user. The user enters one initial length and a time lapse. The program 
computes the final lengths. The triples are punched on cards, with one triple per card. No 
provisions are made for frequency distributions or weighting factors. The program will handle 
up to ^00 triples. Author - Patrilck K, Tomlinson, , > ' * ' 

*ChristopEer T, Psaropulos Available' from originator only 

Xnter-Americaa Troploal Tuna Commission 

Southwest Fisheries Center ' i 
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Estimation of Linear Growth and von Language - FORTRAN • . 

Bertalanffy Growth Equation from Tag Data ' Hardware - Burroughs 6700 
TCPC5 , . - • * 

This program. is used to ^estimate the rate of linear growth per unit time fuid the parameters Loo 
and K of the von Bertalanffy growth equation from .data on £Rfe^ lengths at. release dnd at recap- 
ture, ai^ the times at liberty for two^ or more tagged f ish,^^/Cnown bias(es) in the lengtl)s at 
release (for fish of one or two groups can be corrected by use of the constants a and b in the 
equation y • a+bx, where x is the uncorrected length and y is the correcte4 length. Before es-^ 
tlmating'Loo and K by the method of progr^ TCPC4, the program calculates the mean rate of lin- 
ear growth per time interval and its standard deviation. If option 1 is specified, -the data 
for ♦any fish which grew at rateq which differ by three or more standard deyiajtions from the 
mean rate are Eliminated; i^ dotion 2 ^is specified, np ^ata are eliminated. Author - Patrick . 
K, Toinlinson; atodified by Jo Aa^ Levatin; " \ ^ 

' : , . . * ^ • * ^ 
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^< Southwest Fisheries, Center • - • * ' ' ^ 

Post Office Box 271 , . *' 

La Jolla, CA 92037 - ^ , ^ Telephone (714) 43lJ-2820^ ext, 310 or 253 

Fishing P^wer Estimation , ^ > ' Language - FORTRAN 

TCPDl ^ Hardware - Burroughs 6700 

Estimates. the fishing power of individually vessels or class relative to a standard vessel or 

61 . 
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class and the densities of fish by tlnre-area strata relative to a standard time-area stratum., 
Program fitst estimates log fishing powers, using the method described by Robson (1966)1 Then 
the estimates are converted from log relative fishing power and log density to the original 
sjcales, employibc d bias-correcting factor given in Laurent (1963). The program handles up to 
TfiOO catch observations fronj' a combined total of not more than 200 distinct boats and time-area 
strata; it arbitrarily 'selects the lowest numbered boat as *he standard vessel and the lowest 
numbered area-data in which the standard vessel fished as the standard time-area strata. "Log- 
nonnal distribution and the translation method: desjcription and estimation problems" by Andre 
G/ Laurent, Jour •Amer.'S tat. Assn. 58(301) :231-235, 1963. "Estimation of the relative fishing 
power of individual ships," by D.S. Robson, Res.Bull. Inter. Comm. NW.Atlantic. Fish. (3):5-14, 
1966 t Author - Catherine L. Berude. * 

Christopher T. Psaropulos Available from originator only 

^ * - ♦ Inter- American Tropical Tuna Commission <, ^ " 

Southwest Fisheries Center * ' * 

Post Office Box 271 . ' ^ 
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Survival Rate EaJtimation Language - FORTRAN 

TCPEl , ' ^Hardware - Burroughs 6700 

Estimates a survival rate from the age composition of a sample. Computes a number:;of statisti- 
cal measures associated , with a vector of catch number Nq, N^^ where Nj « number of fish 

caught of (coded) age "j." Four options are available: 

Option;; 1 asstimes that (a) recruitment and annual survival are constant for all age groups en- 
tered in catch vector; Cb) all ages in cktch vector are fully available to sampling gear; (c) 
ages are known for all fish in catch vector. Computes estfinate of survival rate, variance o^ 
survival rate, standard error of survival rate, 95% confidence intei^al for survival rate, in- 
stantaneous mortality rate, variance of instantaneous mortality rate, standard error of Z (to- 
tal* mortality) , 95% confidence ijrterval for Z, and Z interval obtained from S interval. 

Option 2 tests the hypothesis that the relative frequency in the 0-age group as compared to the 
older ages does not deviate significantly from the expected frequency under option 1 assump- 
tions and computes a chi-square statistic associated with the difference between the best es- 
timate and Heinke's estimate. If this s^tistic exceeds CHI (a chi-sqyare value for desired 

confidence level) the catch numbers are recorded as follows: > N^; — > N£; N3 > 

N2; . . ;Nj-^-> Nj_i and the above computations* are made for the new vector Nq,...Ni_i. - This 
test is repeated until the statistics are less than CHI, a theoretical chi-square valdie with 
orite degree of freedom which specifies the significance level of the. test. CHI is entered on a 
control card. If the statistic is less thafi CHI, the output is the same as in option 1. 

Option 3 is to ,be used when' assumptions (a ) and j yfof^op t ion 1 hold but it is not possible to 
.age fish whose coded age is greater than y^i" 6ption 3 assumes that the recorded relative 
frequencies are not reliable for fish'^fi^ges K+l» K+2,...,I in the vector of catch numbers; it 
sums the catch for ages K+1 to I and computes the same output as in option 1 using the catch 
vector Nq, Nj^,...»Ni^ m where m= . .•fNi. ^ 

Option 4 permits the user to subdivide the catch curve Into a number 'of segments. The assump- 
tions listed under option 1 may be satisfied for .the consecutive age .groups in one segment but 
not for ag^ groups in different segments of a catch curye. 'because segmentation of a catch 
curve may be exploratory, the program allows the use of pverlapping segments, i.e.» one age 
group may appear in more than ori^ segtilent. jDption 4 computes th§ same output as option 1. 

"The analysis of a catch .curve," by D.C. Chapman and D.S. Robson, Biometrics 16:354-368, ^ 
1960. "Catch curves and mortality rates," by D.S. Robson and D.G. Chapman, Trans. Am. Fish*. 
Soc. 90:1810189, 1961. Author.- Lawrence E. Gales. 
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Fishing Mortalities Estimation 
TCPE2 \ 



Language -FORTRAN 
Hardware - Burroughs 6700 



jrl5^^ the method of. Murphy 09^65) and Tomllnson (1970). tb estimate the population (?) ^of a co- 
• hort of fish at the beginning o{ each of several consecutive time Intervals (1) and the coeffi- 
cients of catchablllty (q) and of fishing mortality (^) for each interval* when the catches (C) , 
effort (f)i and the c6efflcients of natural Mortality (M) for each interval and F for either 
the first or last Interval are known. When estimates F and M are not available, various 
trial values can be used to obtain estimates which appeat to be reasonable. "A^olution of the 
catch equation, "by G.I. Murphy, J. Fish. Res. Bd. Can. 22 (1) :191-202,. 1965, "A generali- 
zation of the Murphy catch equation/^' by P.K. Tomllnson^. J.Flsh.Res.Bd.CanP 27(4'): 
824.-825, 1970. Author - Patrick K. Tomllnson; modified by Jo Anne Levatin. 
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Relative Yield per Recruit at Various 

Fishing Intensities 
TCPFl 



Language - FORTKAN » 
Hardware - Burroughs 6700 



Calculates the relative yield in weight per recruit at various fishing intensities by the 
method of Beverton (1963: Formula 1)). With option 1, the program calculates the ratios of the 
yields per recruit at selected values of E - (F/(F-H1)) to the yield per recruit at E «• 1. M 
is the coefficient of natural mortality; F is jthe coefficient of fishing mortality. With op- 
tion 2, it calculates the relative yield per recruit at selected levels of F. Limitations: No 
more than ten values of M, nor more than ippO values of E or F» can be used for a single probr 
lem; in option 1, M cannot 'equal 0. ''Maturation, growth and mortality of clupeid and engraulid 
stocks in relation to fishing," by. R.J. H. Beverton, Rapp.Proc.-Verb. 154:44-67, 1963. Aut;hor - 
Christopher T. Psaropulos. ^ * ^ , 

Christopher T. Psaropulos Available f/om originator only ^ 
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Yield Curves with Constant Rates 
TCPF2 



Language 
Hardware 



JORTKAN 
Burroughs 6700 



Using the incomplete beta-f unction , evaluates the Bevettqn and Holt yield equlition and produces 
an array of coordinates for plotting yield Isopleths. ^ "Allometric growth and the Beverton and 
Holt yield equation^" . by G.JC. Paulik and^.E. G^les, Amer.Flsh.Soc. , Trans. 93(4)^369-381, 
1964. Author - Lawrence E. Gales. <^ 

I 
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Eumetrlc Yield \ , Language - FORTBAN 

TCPF3 Hardware - Burroughs 16700 ^ 

Us^s Beverton and Holt's (1957: 36:4.4) equation to compute the population in numbers, the bio- 
mass, the yield in numbers, an^ the yield in ^Ight theoretically obtainable from one recruit 
with various combinations of growth, mortality, and age of entry into the fishery. "On the^ 
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dynamics of exploited fish populations," by R.J.H. Beverton and, S.J, Holt, Fish.Inves., Minis, 
Agr, Fish. Food, Ser.2, 19:533 p., 1957. Author - Lawrence E. Gales; modified by Chrisfopher T. 
Psaropulos. , 

Christopher T. Psaropulos Availal)Te from originator only 
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'Southwest Fisheries .Center 
Post Offline Box 271 
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Piecewise * In testation of Yield Curves Langu'kge - FORTRAN 

TCPF4 Hardware - Burroughs 6700 

Computes an aj^roximate yield isopleth for a given number of recruits to a fishery when both 
groifth and natural mortality are estimated empirically. The calculations are carried out using 
a modified form of Ricker's method for estimating equilibrium ^ield . The program is extremely 
genesal in that growth, natural mortality and fishing mortality rates need not be measured us- 
ing the same tiriie intervals. Fishing mortality rates can be age 'specific (up to 400 different* 
ratqs can be applied during the life of the fisji) but the over»-all level of fishing mortality 
can be yaried by m^ans of multipliers which apply to all of the individual age specific rates. 
TJie range and the intervals between ages at first capture can also be varied, by the user. 

The program has two approximation options: (1) an exponential mode which ad^sumes that the bio- 
mass of the stock changes in a Istrictly exponential manner ^dur^g ai;iy interval when growth, 
natural mortality, and fishing rartes are all constant (Ricker, 1958: Equation 10.4); (2) an 
arithmetic n\ode which uses the arithmetic mean of the stock biomass at the start and at the end 
of any interval during which all three rates are constant as an estimate* of. the average biomass 
present during the interval (Ricker, 1958: Equation 10.3). 

The program will cc(mpute and print out at specified times the biomass of the stock when only 1 
natural mortality and growth are present. This biomass vector is useful for determining the 
opt imum> harvest times for stocks that may be completely harvested at one time. "A generalized 
computer program for the Ricker mode^ of equilibrium yield per recruitment," by G.J. Paulik and 
W.F. Bayliff, J. Fish. Res. Bd. Canada 24:249-252, 1967. "Handbook of computations for biological 
statistics of fish populations," by W.E. Ricker, F ish. Res. Bd. Canada Bull. (119):300 pp. Au- 
thor - Lawrence E. Gales. 

Christopher T. Psaropulos ^ Available fiUgp originato^only 

Inter-American Tropical Tuna Commission ™ 
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Piecewi^e Integration o*f Yield Curves Wherf Language - FORTRAN 

Age is Unknown ^ * Hardware - Burroughs 6700' 

TCPF5 

• ' , ^ i \ " ' 

Performs piecewise integration of yield curves when age is unknown- Different mortality rates 
may be associated with intervals in the lifespan and growth is calculated as a ^nction of 
length from a transformed von Bertalanffy grptlrth curve. Yi^ld isopleths are giVen as functior^s 
of length-at-entry and fishing mortality. Note that program TCPC4 provides von Bertalanffy 
growth parameters from unaged fish which dan be used with th^s program. The amount of growth 
a fish will put on during* ati interval of time is a function of the size at the beginning of the 
interval, not age. Similarly, survival is usually given as a function of tim^ elapsed, not 
age* Therefore, growth during an <|.n'terval and survival during the interval can be* combined to 
p,roduce yield, even though age is unknown- Author - Patrick K. Tomlin^n.' , * 

Christopher T. Psaropulos Available from originator only 
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Constants in Schaefer^s Kodel 
TCPF6 



Language - FORTRAN 
Hardware - Burroughs 6700 



Uses three simultaneous equations to solve for the constants, a, M, and in Schaefer's 
OL957) model for determining the status of a stock of fish in regard to fishing. Schaefer 
(1*957) used an iterative procedure to evaluate these constants, but in another publication 
(Schaefer and Beverton, 1963), i-t was indicated that evaluation of the constants by the solu 
tion of three simultaneous equations would be acceptable. *'A study of the dynamics of the 
fishery for yellow-fin tuna in the eastei;n tropical Pacific. Ocean" by K.B. Schaefer, Bull. , In- 



> ter-Amer,Trop,TUna Comm. 2(6) :245-285, 1957 
tation," by K*B» Schaefer and R.J.H. Beverton, 
ters^ence Publishers, New York, 1963, Author 

Christopher T. Psaropulos 
Inter-American Tropical Tuna Commission 
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"Fishery dynamics - their analysis and interpre- 
pp. 464-483 in, M.N, Hill, Jhe Sea, Vol. 2, In- 
- Christopher T. Psaropulos. 
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Schaefer Logistics Model of Fish P 
TCPF7, 



uction language - FORTRAN 

^ Hardware - Burroughs 6700' « 

Pelife and^^^linson (1969) discussed a generalization of Schaefer 's (1954) logistic model to 
explain^rtianges in catch as related to effort upon a given population and they presented a' com- 
puter pnogram useful in estimating the parameters of the model when observed catch-pffort data 
are available. However, in their scheme, it is necessary to use numerical methods for approx- 
imating the expected catch. Also, the user is required to provide guesses of the parameters 
and limits to control searching. In general, this program TCPF7 uses the same procedure for 
estimating the parameters as that described in Pella and Tomlinsoa. Exceptions: The user only 
needs to supply catch, observed effort, and elapsed time for each of n time intervals; the pro- 
gram will make the guesses and set the values used in the search, "A generalized stock produc- 
tion model," by J.J, Pella and P.K. Tomlinson, Inter-Amer.Trop.Tuna Comm., Bull, 13(3) :421- 
496, 1969. *'Some aspects of the dynamics of populations important to the management of the 
commercial marine fisheries," by M.B. Schaefer, Inter-Amer.Trop.Tuna Comm, , Bull. l(2):25-56. 
Author - Patrick K. Tomlinson. 

Christopher. T. Psaropulos Available from originator only. 
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Fits Generalized Stock Production Model Language 
iCPF8 ^' Hardware 

Fits the generalized stock production model described by Pella and Tomlinson (1969) to catch 
and effort data. This model estimates equilibrium yield as a function of effort or population 
size, ^he production curve is allowed to .be skewed. "A generalized. stock* production model," , 
by Jerome J. Pella and Patrick K. Tomlinson, Inter-Amer.Trop.Tuna Comm., Bull. 13(3) : 419-496. 
Aut6c^rs - P.ella and Tomlinson; modified by Catherine L. Berude. ^ 

$ 
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Biometry 
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Linear Regression Analysis 



Language FORTRAN 
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Performs an anaXysis of regression with one or more Y-vilues corresponding to each X-value. 
,The .Model I Regression is based on the following assumptions: (a) that the independent varia- 
ble X ia measured without error, where the X*8 are "fixed"; (b) that the expected value lor the 
^variable Y for any given value X is described by the linear function \xy - a+0X; (c) that for 
any given value of ^ the Y's are independently and normally distributed. Y « a+BX+e, Habere 
e is assumed to be normally distributed error term with ^mean of zero; (d) that the samples 
along the regression line have a common variance, a^, constant and independent of the magnitude 
of X or Y.^ In Model II Regression, the independent variable and the dependent variable are 
both subject to error. Biometry , by Rol)ert R. S6kal and F. James Rohlf, W.H. Freeman and C6m- 
pany, San Francisco, 1969. Modified by Walter Rltter 0. 

Christopher T. Psaropulos Available from originator only 

Inter-Americfan Tropical Tuna Commission 
Southwest Fisheries Center 
Post Office Box 271 

La Jolla, CA 92037 Telephone (714) 453-2820, ext. 310 or 253 

— Generalized Weighted Linear Regression Langu^fee^-' FORTRAN - - 

for Two Variables, TCSA2 Hardware - Burroughs 6700 

Computes the regression line Yi « bo + biXi where the Y^ may have different weights. The user 
may transform the data by any of three transformations, natural logarithms of X, Y, and /or W 
(weight), common lo gar it hms*i of X,\, and/or W, and/or powers of X, Y, and/or W. The t\iO vari- 
ables and the weights may be transformed independently. The pi^pgram normalizes the weights (or 
the trans format ionb of the weights) b^ dividing each weight by the mean weight. Produces 
^printer plots of the data and deviations. Author - Lawrence E. Gales; modified by Patrick E. 
•Tomlinson and Christopher T. Psaropulos. 

Christopher T. Psaropulos Available Sroirf originator only 

Inter- American Tropical Tuna Commission 
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Linear Regression, Both Variables Subject Language - FORTRAN 

to Error, TCSA3 ' * , Hardware - Burroughs 6700 

Computes a regression in which both the dependent and the in^dependent variable are subject to 
error. There are several mefthods for obtaining solution to the equation in a Model II case, 
depending upon one's knowledge of the error variances or their ratios. Since this situation 
is not too likely to arise in the biological sciences, the authors adapted a relatively simple 
approach in which no knowledge of these variance^ is assiimed — the Bartlett's three-group 
method* This method does not yield a conventional least squares regression line and constf^ 
qiiently special techniques must be used for significance testing (Sokal and Rohlf, 1969). The 
user may transform the data by any of three transformations: natural logarithms of X and/or Y; 
common logarithms of X and/or Y; powers of X and/or Y. The program produces printer, plots of ' 
the data and derivations. Biometry , by Robert R. Sokal and F. James Rohlf, W.H. Freeman and 
Company, San Francisco, 1969.^ Author - Walter Ritter oTTViodified by Christopher T. Psaropulos. 

Christopher Psaropulos •Available from originator only 

Inter- American Tropical Tuna Commission 
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Bost Office Bq^ 271 
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Biometiry - Product-Moment CorreJ&tion Language - FORTRAN 

Coefficient, TCSBl ' Hardware - Burroughs 6700 

Co^Dputes the Pearson product -moment^ correlation coefficient for a pair of variables anclits 
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confidence limits. In addition, the program computes and prints the means, standard devia- 
tions! standard errors, and cover iances for the variable, as well as the equation of the prin- 
cipal and minor axes. The confidence limits for the slo^e of the principal axis are also com- 
puted and the coordinates of eight points are given for plotting confidence ellipses for bivar- 
late means. Biometry , by Robert R, and F. James Rohlf , W.H, Freeman and Company i San Francisco, 
1969, 

Christopher T. Psaropulos Available from originator only 

Inter- American Tropical Tuna Commission 
. Southwest Fisheries Center V * 

Post Office Box 271 

La Jolla, CA 92037 Telephone (714)^453-2820, ext. 310 or ^53 

Cooley-Lonnes Hultiplie-Regression Analysis Language - FORTRAK . > 
TCSB2 » \ Hardware - Burroughs 6700 

Computes a multiple-regression ai^lysis for a single criterion and a maximum of 49 predictor 
variables. The Gauss-Jordan method is used in the solution of the normal equations. There 
is no restriction in the number of subjects for which score vectors may be presented. Out- 
put: Basic accumulations, means, standard* deviations, dispersion matrix, and correlaition 
matrix are printed and /t>r punched as required. Additional printej output, appropriately la- 
beled, includes: The mul^ple-cor relet ion coefficient; the F test criterion for muljtiple R>"'^ 
with its degrees of freed^; the beta weights; the squered beta weights; the B weights; and 
tHe intercept constant. Additipnal punched output includes: The beta weights; the B 
weights, and the intercept constant. Multivariate Procedures for Betiavorlal Sciences , by 
William W. Cooley and Paul R. Lonnes, John Wiley and^ Sons, Inc., New York. Modified by Wal- 
ter Rltter 0» • • ' . ' 

Christopher T. Psaropulos' Available from originator only ^ 

Inter-American Tropical Tuna Commission ^ 

Southwest Fisheries Center ^ ' 

Post Office Box^ 271 - 

La Jolla, CA 92037 Telephone (714) 453-2^20, ext. 310'^or 253 



4 



Biometry - Goodness of Fit to Discrete Language - FORTRAN 

Frequency Distribution,»TCSCl , ' Hardware - Burroughs 6700 



Provides several options for the following operations: (1) Computes a binomial or Poisson dis- 
tribution with specified parameters; (2) computes the deviations of an observed frequency dis- 
tribution from a binomial or Poisson distribution of specified parameters or based on appropri- 
ate parameters estimated from the observed data; AG-test for goodness of fit is carried out; 
(3) A series of up to 10 observed frequency distributions may be read in and individually 
tested for goodness of fit to a specific distribution, followed by a test of homogeneity of the 

•series of observed distributions; (4) A specified expected frequency distribution (other than 
binomial or Poisson) may be read in and used as the expected distributions; this may be erftered 
in the form of relative f requefticies or simply as ratios; the maximum number of classes foif all 
cases is thirty; in the case ot binomial and Poisson, the class marks cannot exceed 29. Biome- 
try , by Robert R. Sokal and F. 'James Rohl'f, W.H. Freeman and Company^San Francisco, 1969. 

'Modified by Walter Ritt^ 0. ' J 

Christopher T. Psaropulos AvadLlable from or^inator only ' ^ 

Inter-American Tropical Tuna Commission 

Southwest Fisheries Center 

Post Office Box 271 ^ 

La Jolla, CA 92037 , Telephone (714) 453-2820, ext. 310 Or 253 



Biometry - Basic Statistic for "Ungrouped Data Language r FORTRAN 

TCSC2 Hardware - Burroughs 6700 
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7.7 



J - > " 

1 

Reads in samples of ungrouped continuous or merlstic variates, then ranks and optimally 
performs transformations on these data. Output Consists of a table of the various statistics 
computed: mean, median, variance, standard deviation, coefficient of variation, g^^, g2, and 
the Kalmogorov Smlmov statistic Dpiax resuiting from a comparison of^ the observed sample with a 
normal distribution based on the -^sample mean. and variance; these are, followed by their standard 
errors and 100 (1 - a)Z confidence intervals^ where applicable. Biometry , by Robert R. Sokal 
and F. James Rohlf, W.H. Freeman and Company, San Francisco, 1969. Modified by Walter Ritter 0. 

Christopher T. Psaropulos Available from originator only, 

Inter-American Tropical Tuna Commission 
Southwest Fisheries Center 
Post. <Off ice Box 271 

La^lla,'CA 92037 Telephone (71A) A53-2820, ext. 310 or 253 

f 

Biometry - Basic Statistic for Data Grouped Language - FORTRAN 

into a Frequency Distribution, TCSC3 Hardware - Burroughs 6700^ 

Similar to TCSC2, but intended for data grouped into a frequency distribution. 



} 



Christopher T. Psaropulos Available from originator only 

- Inter-American Tropical Tuna Commission 
Southwest fisheries Center 
Post Office Box 271 

La Jolla, OA- 92037 Telephone (714) 453-2820, ext. 310 -or 253 

Biometry r Single Classification and Nested Language - FORTRAN 

Anova, xfcSDl Hardware - Burroughs 6700 

Performs either a single classification or a k-leyel nested analysis of variance following the 
techniques presented in Sokal and Rohlf (1969) .' The l)asic anova table as well as the variance 
components are computed. The program allows fpr unequal sample sizes at any level. The input 
parameters are reproduced in the output, followed l)y a standard anova table giving SS, df, MS, 
and Fg. For nested anovas with unequal sample sizes, synthetic mean squares and their appro3;i- 
mate degrees of freedom (using Satterthwaite' sapproximation) are given below each MS and df .? 
Each Fg is the .result of dividing the MS on i^^ifte by the synthetic MS from the* level above 
it. When sample sizes are e<itial, the synthetic mean squares and^ their degrees of freedom are 
the sau^ as "their ordinary counterparts, but are^^rinted out nevertheless by the program. So 
pooling is perf^mned. The anova table is followed by a list of the estimated variance ^compo- 
nents expressed both in the tjriginal units and as percentages J these in turn are followed by a 
table of the coefficients of the expected mean squares. Biometry , by Robert R. Sokal and F. 
James Rohlf, W^. Freeman and Company, San Frafttslsco, 1969. Modifl^ed by Walter Ritter 0. 

> Ch^stopher T. Psaropulos " Available ^rom originator only 

Inter-Atrerican Tropical Tuna Commissioi 

Southwest Fisheries Center \ ' p ^ 

Post Office Box 271 \ \ 
, 'La Jolla, OA 92037 ' TeJ^hon'e (714) 453-2820, ext. 310 or 25^^' •* 

Biometry - Factorial Anova Language - FORTRAN ' 

XCSP2 *^ * Hardware - Burroughs 6700 

Reads in ;data for a complete factorial analysis of variance with no replications. Using the 
technique described in Sokal and Rohlf (1969, Section, 12.5), it is possible %o use this program 
for single classification anova with equal sample sizes, multi-way analysis of varianc.e with 
equal replications, and other completely balanced designs. Produces the standard anova table 
and provides as well an optional output of a table of deviations^ for all possible one-, two-, 
three-, four-way (and more) tables. The output is especially useful as. input to various pro- 
grams for testing differences among means and can be inspected for homogeneity of interaction 
terms. Biometry , by Robert R. Sokal and F. James Rohlf, W.H. Freeman and Company, SaiT Fran- 
cisco, 1969. Modified by Walter Ritter 0. ^ ^ 

• • ^ . • - ; 
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Christopher T, Psaropulos Available from originator onfy 

Inter-American Tropical Tuna Commission 
Southwest ^Fisheries Center 

Post Office Box 271 ' x ' 

La Jolla, 'CA 92037 Telephone (714) 453-2820, ext. 310 or 253 

r ' 



Biometry 
TCSD3 



Sum of Squares SJ^ 



Language - FORTItAN 
Hardware - Burroughs 6700 



Tests the homogeneity of all subsets of means in anova, using the sums of squares simultaneous 
test procedure of Sokal and Rohlf (1965, Section 9,7)- Biometry , by Robert R, Sokal and F, 
James Rohlf, W,H^ Freeman and Company, San Francisco, 1969, Modified by Walter Ritter 0, 

Christopher T, Psaropulos Available from originatpr only , ' . 

Inter-American Tropical Tuna Commission » 
Southwest Fisheries Center 
Post Office Box 271 . 

La Jolla, CA 92037 Telepl^one (714) 453-2820, ext. 310 or 253 



Biometry 
TCSD4 



Student-Newman-Keuls Test 



Language - FORTRAN 
Hard\y&re - Burroughs 6700 



Perfoofea Student-Newman-Keuls a posteriori multiple range test. The SNK procedure is an ex- 
ample^ a stepwise method using the range as the statistic to measure differences ^ong means- 
Biometrl , by Robert R. Sokal and F, James Rohlf, W,H, Freeman and Company, San Francisco, 1969. 
Modifie| by Walter Ritter 0, 

Christopher T. Psaropulos Available from originator only 

Inter- American Tropicat Tuna Commission ' 
Southwest Fisheries Center 
Post Office Box 271 

La Jolla, CA 92037 Telephone OA) 453-2820, ext, 310 or 253 



Biometry 
TSCEl 



Test of Homogeneity of Variances 



Language - FORTRAN 
Hardware - Burroughs 6700 



test- Biometry , by Robert R- 
James Rohlf, W,H, Freeman' and Company, San Francisco, 1969, Modified by Walter 



Performs Harriett's test of homogeneity of variances and the F 
Sokal and F " - • - - - • ^ « - " ■« 

Ritter 0. 



Christopher T. Psaropulos ^Available from originator only 

Inter- American Tropical Tuna Commission 
Southwest Fisheries Center 

Post Office Box 271 ' - 

La Jolla, CA 92037 Telephone (714) 453-2820, ext, 310 or 253 



Biometry - Test of Equality of Means with Language - FORTRAN 

^ Heterogeneous Variances, JTCSE2 Hardware - Burroughs 6700 

Performs an apptoximate test of the equality of means when the variances are assumed to be het 
erogenous. The method differs from an ordinary single classification anova in that the means 
are weighted according to the reciprocal of the variance of the sample from which they were 
taken, and a special error MS must be used to take the Weighting into account. The input pa- 
rameters are reproduced in the output along with a listing or ^he means and variances for eacjx 
sample. These are followed by the sample variance ratio F^ and the degrees of freedom re- 
quired for looking up the critical F-value, Biometry , by Robert R, Sokal and F. James Rohlf, 
W,H, Freeman and Company, San Francisco, 1969, Modified by Walter Ritter 0, 

4r ■ ■ 
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Christopher !• Psaropulos Available from originator onl^^ 

Inter-American Tropical Tuna Corojssion ' 

Soathwest Fisheries Center . N 

Post Office Box 271 ^ 

La Jolla, OA 92037 Telephone .(714) 453-2820, ext. 310 or 253 



Biometry-^Tukey's Test for Nonadditivity Lang\age - FORTRAN 




TCSE3 ^ • ^ • "Hardwa^- burroughs 670Q 

Performs Tukey's test for nonadditivity to ^scertaiW^eAher the interaction found in a given 
iet of data could be explained in terms of multipllcitive main effects. This test is also use- 
ful when testing for nonadditivity in a two-way Modei I anova without replication in experi- 
ments ^where it is reasonable to assume that interaction!, if present at all, could only be due 
to multiplicative main effects. It partitions the inte\action sum of squares Into one degree 
of freedom due to multiplicative effects of the main effe^s on a residual s\im of squares to\ 
represent »the other possible interactions or to serve as enror in case the anova J ^as no repi^ 
d^tion. Biometry , by Robert R, Sokal and F, James Rohlf, w,H, Freeman and CompanyT*^*!^an- 
cisco, 1969, Modified by Walter Ritter 0, ' ^ 

^. .Chrlstopher-I*--P3aropulos Avaiijable frob^^lginator-only^ 

^ Inter- American Tropical Tuna Commission ^ 
Southwest Fisheries Center 
Post Office Box 271 



La Jolla, CA 92037 Telephone (714)^ 453-2820, ex^, 310 or 253 \ 



Biometry - Kruskal-Wallis Test Language - FORTRAN 

TSCE4 * Hardware - Burroughs 6700 ' ' ^ f 

The Kruskal-Wallis test is a non-parametric method of single classification anova. It is 
called non^-parametric because their null hypothesis is not concerned with specific parameters 
(such as the mean in analysis of variance) but only with distribution of the variates. This is 
based on the idea of "ranking" the variates in an example after pooling all groups and consider- 
ing them as a single sample for purposes of ranking. This program performs the Kruskal-Wallis 
test for equality in the "location" of several samples. The input parameters* and sample sizes 
are reproduced in the output, followed by the Kruskal-Wallis ^atistic H (adjusted, if neces- 
sary^), which is to be compared with a chi-square distribution for (|egrees of freedom equal to 
a-1. Biometry , by Robert R, Sokal and F, JameS Rohlf, W,H, Freeman and Company, San Francisco, 
1969, Modified by Walter Ritter 0, ^ ' 

Christopher T, Psaropulos * Available from originator only 

Inter- American Tropical Tuna Commission 
Southwest Fisheries Center 
Post Office Box 271 

• La Jolla, CA 92037 Tel'ephono, (714) 453-2820, ext, 310 or 253 



Biometry - Fisher's Exact Test, ^ , Language - FORTRAN 

'tCSE5 * Hardware - Burroughs 6700 

^ 

Performs Fisher's exact test for independence in a 2 x 2 contingency table. The computation is 
based on the hypergeometric distribution with four classes. These probabilities are computed 
assuming that the row and ^column classifications are independent (the null hypothesis) and that 
the row and column totals are fixed. Biometry , by Robert R, Sokal and F, James Rohlf, W,H, 
Freeman and Company, San Francisco, 1969, Modified by Walter Ritter 0, 

Christopher T, Psaropulos ^ * Available frota originator only 

Inter- American Tropical Tuna Connnission 

Southwest Fisheries Center 

Post Office Box 271 j 

La Jolla, a 92037 Telephone (714) 453-2^20, ext. 310 or 253 
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# Biometry • R X SjToBt of Independence In 
Contingency fal)Te6> TC^E6 



Unguage - FORTRAN 
Hardware - Burrou^jftr^OO 



Performs a test of independence in an R x C contingency ta^e by means of the G test. Option- 
ally it carries out an a posteriori test 6f all subsets of rows and columns in the R x C con^ 
tingency table by the simultaneous test procedure. Biometry by Robert R. Sokal and F. James 
Rohlf, W.H. Freeman and Company^ S^n Francisco, 1969. Modified by Walter Rltter 0. 

Christopher T. Psaropulos Available from originator only 

Inter-American Tropical Tuna Commission 
. Southwest Fisheries Center, 
Post Office Box 271 

U Jolla, CA 92037 Telephone (714) 453-2820, ext. 310 or 253 
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POLLUTION 



•Monte Carlo Spill Ttacker Language - PL/1 Optimizer 

Hardware -«IBM 370-168/216 K bytes (characters) 

provides insight on likely oil spill trajectories in a given region by season, using Monte 
Carlo sampling of Markov wind model at one- or three-hourly intervals; spill movement assumed 
to be linear combination of momentary wind and current vectors. Input: Map of area, output 
files from analysis of TDF-14 data, current hypothesis, postulated spill launch points. Out- 
put: Estimates of the likelihood of spill reaching various areas; estimates of the statistics 
of the time to^reach such areas. See publi(^ations MIJSG 74*-20, "Prifnary, Physical , Impacts of 
Offshore Petroleum Developments," by Stewart and Devat^y, MIT Sea Grant Project Of f ice, April 
1974. • . • of ' 



J.W. Devanney III 
Massachusetts Ii^itute of Technology 
Room 5-207 

Cambridge, MA 02139 



Available from originator, only 



le^ne^i 



(617) 253-5941 



Thermal Pollution Model 



Language - FORTRAN IV 
Hardware - CDC 6500/CDC 1604/20K 



fields. 



Simulates the dispersion of heat from a source. Output is a printout of current. 



Available from originator only 




words 



Kevin M. Rabe 
^vironment^aL Prediction 

Research Facility 
Naval Postgraduate School 
Monterey, CA 93940 



Substance Advect ion /diffusion Routine 



Telephone (408) 



Language - FORTRAN 
H^dware - CDC 6500 




\ 




tically Integrated Hydrodynamical-Numerical Moddl." 



ach 
conc€;;i- 
A Ver- 



^Taivo Laevastu 
Environmental Prediction 

Reseai^ph Facilityf 
Naval Postgraduate School 
Monterey, CA 93940 



Available from originator* only 



Telephone (408) 646-2937 



Danish Advection Program ^ ( Language - FORTRAN 

Hardware - CDC 3100/tDC 6500 

Computes advection of pollutants (or mass) in d fluid in two dimensions. Input: Veiocities 
_ln X and Y,, mass and grid spacing in X and Y, alll for each grid point; t^^tep and total time 
or advectioa. Output: Initial" gridpoint 'of fi^ld advected and fin^.fieM. after tofal advec- ^ 
tion. Quasi- Lagrangian method used, utilizine/mass , center of mass, and width of mass distrl-^ 
bution, all for each grid point. Storage tctfuireirifent is grid-size, dependent : for NX by NY 
grid, (NX*NY*7) + (NX+1)*28" words.^ "A M ^od .for Numerical Solution of -the Advection Equa^ 
tion," by L.B. Pederson and L,P. Prahm , Meteor Qlogical Institute, Denmark, Aug. 1973, 36 pp. 
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Ta'ivo'^Laevastu ' Available from originator only 

Environmental Prediction* ^ 

Research Facility . * • 

Naval Postgraduate School . • • , • 

Monterey, CA 93940 - ^ Telephone '(4i)8) 646-2937 



r 



• 1 , u 

Ecological Statistical Computer Programs language - ANS FORTRAN* 

rrn^TAT . ' * Hardware - 'I^ 360/370** > 



The* system -was developed as part of an extensive' sti^y Undertaken by the^County Sanitation- Dis- 
tricts of Los Angeles ^nd the ^Southern California Coastal Water Research Project to provide in-* 
sight into the ecological effects of o.cean discftarge of treated wastewaters.. Biological and . 
physical data for analysis were available from semi-annu^ bentl^ic surveys on the Palos Verdes\^ 
Shelf . Due to the nature of the analysis and the probability 'that the system would be used by 
other agencies, it was decided that th4 programs would be. made general and easily implemented ; 
and used in other computing environments and sampling studies. The syst.em differs from other, 
statistics packages in that it allows the user to define a taxonomic structure on encoynter^ed 
species and employ the resulCantT groupings in the calculation of diversity indices, T and F 
statistics, linear correlation coefficients, onejway analysis of variance, dissimilarity coef- ^ 
ficients, and abiotic-biotic relationship tables. The user can also specify station groupings 
to be used in computing statistics. 



Outtut^ -(1) Suimnary information: (a) raw data, (b) 'splslts distrubution , (c) dominant spe^ 
ciel- (2) Univariate statistics: (a) means, standard deviations by parameter for each stat^ion, 
(b) community diversity (8 measures - Bfillouin's, Gleason's, Margalef's, Shannon-Weaver s, 
Simpson's, ^<raled Shannon-Weaver's, scaled Simpson's, scaled standard deviation) , (c) T and F 
statistics between regions by parameter, (d^) dissimilarity coefficients by-taxon between re- . 
Kionfe between samples for .each station, between- surveys by region, (e) ANOVA tables among sur- 
veys by region; (3) Multivariate statistics: (a) ;iinear correlation coefficients by region be- 
tween par^eteris;\ (4) Abiotic-biotic relationships: (a) means, standard deviations, ranges of 
physical parafteteVs for each partition 6t relative^abundance , (b) dominant species occurring at 
physical parameter class interval pairs. ^ • , • * ' 

(*With the following IBM extensions: Object-time.d'imensions transmitted iii COMMON,^ INTEGER* 2, 
END. parameter in a READ ,* literal enclosed in apostrophe;s , mixed-mode e:}tpressions^, NAMELIST, 
T format code.) - - ' . 

*'(**For allTprograms except BIOMASS, ABUNDANCE,' and DIVERSITY, a direct access storage device is 
required Since all data sets are accessed ^etjuentially a tape system i^ possible, however, 

^ and with as few a§ three driv^^ all analyse? with.<the exceptions of those betv/een surveys may 
be accomparCkhed. The generation of Table VO *(AKQVA' amon^ surveys) using five surveys, for ex- 
ample, requires a minimum of ten fil^ to J>e open simultaneously, and, unless there-are tei>. ^ 
;,ape drives available, this would.be ijnpossible without using disk storage.) ^ \ • * 

"Ecological Statistical. Computer P:?ograihs, tJser Guide," by, Bruce Weinstein, Lgs Angeles County 
s Sanitation Districts, August 1975.^ ' ' ^« \ - ' - 

* Data Processing / , 'Available from originator only 

- Jechnical Services^ Department ^ ^' Z'- , 'P^ 

•Los Angeles 'County Sai^itat^n !)istricts _ ' ^ • . . * . > /. 

1955 Workman Mill. Road . • ' > ' - " ^ • " ^ 

Whitti#r;''cA 90601 * Telej^hone (213) 699-7511 . ; . ^ 

( - \ ' ' ^ ^ ' • 



CURRENTS AKD TRANSFER PR6cESSES 



' Drljjt Bottle Statistics ' ' Language - PL/1 Optimizer * ' 

'j ^ » * " ' Hardware - IBM 360-168/20OK 

Used for- determination of spatial and temporal conditions in drift bottle trajectories. Input: 
Standard NODC 80 character drift bottle records , formatted according to NODC Pub.^M-6 in ^either 
. car^or.tape fofi^. Bottle records must be roughly sorted by launch, point location Co facili- 
tate identification of recoveries occurring from a common launch event. Output: Launch and 
^ • recovery group s^ze distributions; pairwise correlations in recovery location and date. ^ Re- 
^ coyery group size -vs. launch group size; Chi-square tests of independent trajectory, hypothe- 
r SiV, etc.* Brief discussion of results for U.S. Atlantic Coast available in publication MITSG 
74-20, ^Primary, Physical Impacts of Offshore Petroleum Developments," by Stewart and Devanney, 
MIT Sea Grant Project .Office, April 1974. 



Robert J. Stewart Available frSta originator only • - / 

^ , » Massachusetts Institute of Technology w ^ , ' 

• Room^^07 ^ ^ 

Cam^tridge, MA 02139 Telephone (,61?)' ^63-5941 



Drift Bottle Plots ' ^ Language Pll/1 • ' ^ 

Hardware IBM 370-^168/Sc4020 CRT 

Plots launch and recovery locations of drift bottles, tnput : Data files /creened and fortnat:- 
tei by CNDNSDTA.' Output; CRT plots of JLaunch and recovery posij^ions. See publication MIT^G 
94-20, "Primary, Physical Impacts of Offshore Petroleum Developments,*' by Stewart and Devanney, 
MIT Sea Grant Project Office, April 1974. ' * , . ^ ^ * . ' 

* ' , \ ^ " 

^ *Robert J. Stewart * , ' Avail^ible from originator only 

^Massachusetts Institute of Technology « - V , 

"^Room 5-207 • • ' . " ' . ^ • ' 

. Cambridge, MA ^2139 Telephone (617) 253-5941 

Reformat fin^ Sort Drift Bottle Data L^^nguage -J PL /I / 

CNDNSDTA , - Hardware f IBM 370-168/2§0K/Disk 

• >* ' , " 

'!teformaJts;into conden'^ record format (28 characters), screens for bottle configuration, and 
sorts by launch point ,^ filing into on-line (disk) storage. Input: Standard NODC 80 character . i 
drift bottle^ records j)er NODC publication. M-6. Output: All drift bottles launched wit'hin "r" * "^^H 
miles of *'N*^ launch points are reformatted and filed' in *'N" separate data file. 

t • - ' ' . • f . * 

. Robert J. Stewart Available from originator only ' ' 

Massachusetts Institute of Technology ^ { 

♦ ^' Room 5-207 ; ^ 

Cambridge, MA 02139 Telephone (617) 253-5941- \ * \ 



^ Current Prpfiles from Tilt bata . - Language,-" 

* Hardware - ' - , 

. / ,6 ' - . ^ C 

Calculates current profiles generated from tilt data obtained from Niskin currAt array. Cur- 
rent magnitude and direction are computed at each sensor from tilt and azimuth data by means of" 
. numerical algorithms developed f rom-analysis of the three-dimensional cable equations, 'input: , 
Physical parameters to be modeled. OutDut : Profiles can be generated at a given time«using 
one ^method. Profiles can also be generate^ for 'one-hour. increment§ from the avetaged data' 
which have been curve fitted between sendor stations.* ' 
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Gary T. GriJtfin 

Naval Underwatef Systems Center 
.New Lond6n, CT 06320 



Available from originator only 
Telephone (203), 442-0771 



Current rMeter Data 



CREATE--q 
CURRENT^ 
CURRPLOT 



Language - 
Har4ware^ - 




FORTRAN 

CDC 3300/Di8k/UCC Pl>tter 
20K words 
2 OK words 
28K words 



CREATE-C creates a disk' file of raw dat^a digitized from Braincon current metet film and con- 
sisting of arc endpoints and angles;' listing also produced. CURRENT converts raw data t;o x:ur 
rent .speed, direction, etc.', ac^orciing to particular calibration and gives basic statistics: 
minimum and' maximum speed, means, standard deviation3i etc. Input: disk file from CREATE-C 
and a data card giving info^rmation about the data (e.g., format) and about the current meter 
used (type., observation time, etc.). Output: Listing of converted data and statistics a» 
new disk file of converted data. .'Using this data file and a plot data card, QUR^LClT ^^pares^ 
a 'tape for the UCC Plotter to'give plots of speed vs. time, direction vs. ti^e, afnd progres- 
sive vector plot 



4 

:SV 



Plots' are broken up into one-week unj-ts. 

Available from originator only 
Telephone (401) 841-3307 



K. Crocker , ^ • 

Naval Underwater Systems Center 
Newport, RI 0'2840 



Current, data 
SPECTRUM 



Language - FORTRAN 
Hardware - CDC 33O0 



hg processe'd data file from CURRENT ^nd a preprocessing data card, gives. autocorrelation 
(auto power spectnim for Current speed and velocity Components -with preprocessing'^ options 
filtex^ing, cotldensing, etc. ^ ' 



K. Crocker 

Naval Underwater Systems Center 
Newport, RI 02840 



Available from originator' only 
Telephone (401) 841-3307 



Cfptimized Multi-laye^HN Model 



Language*- CDC FORTRAN EXTENDED . ' 
Hardware - CDC 7600 or 6500 w/CDC 3100/157K 
octal (60 bit) 'words on 7600 ^ 



Comf^utes surfacej'deviations and integrated current velocities b^sed on hydrodynamic equaJion^ 
for small-scale coastal and open^ocean areas for up to three selecCfed layers. The finite dif-\, 
ference scheme proposed by Hansen (1938) is extended to multiple, layer cases optimized f or ^ 
ease in practical application and for computer computation. Intermediate data tape prepared 
on cpc 3100.' ?PRF Tech. Paper 15-74, .by R. A. Bauer. 



T. XiaeVastu or A. Stroud 
invironmehtal Prediction 

'Research -Facilrity 
Naval Postgraduate School 
Monterey, CA 93940- 



Mean- Drift Routine 



Available from originator only 



'Tel'iphone (408) 646-2937 



language - FORTRAN * 
Hardware - CDC 6500/CDC 1604 



/ 



Generalized routine to simulate the drift of an object, ^iven the current structure, wind* 
fields,^ and object leeway. EPp Tech. Note 1-^4, "A Vertically Integrated Hydrod-ynamical- 
'llumerical Model." ' , ' " ^ 



Taivo Laevastu 
Environmental Prediction 

,^e8e|rch Facility 
Naval Postgraduate School 
Monterey, CA 9f940 



Available from originator ^nly 



Telephone (408) 64^2937 



^Search kn<f, Rescue Planning 
NSAR 



Language - FORTRAN Extended 
: Hardware - CDC 6500/54K words 



Pfovldjes Sn estimate* of an object's position in the ^ean at the l|Lme a search is initiated. 
Computes drift as a resultant of two components. In all cases 100 percent of 'the surface c5ir- 
rent is applied. Wind effects are handled through a series of leeway cod^s option?. Input :^ 
PNWC surface wind and current "Afield analysis and prognosis; object starting time and position, 
datum time, last known position, navigation error factors, leeway factors. Output: Datum 
'points (latitude, longitude) for each datum time.' OPNAV INST 3130. 5A, 7 Dec. 1972, FNWC Tech* 
Note 60, August 1970. ^ v 



LCDR /ohn Gossner 
-Fleet JJumerical- Weather Central 
Monterey, CA 93940 



Available from originator only 
Telephone (408) 646-2010 



Current Met^r Torbulence v 



Language*- FORTRAN 
Hardware - IB¥ 7074 * 



Gives ^an indication of turbulence in the ocean computing measures of Che deviations from 
me^ns over various lengthy o^* time. 6s No. 572-2. Author. - Robe^ R. Gleason. * * 



Data Systems*^ffice^' 

U^S. Naval OCeano'grapKic Oifice 

Wkshing^orl,- DC 20373 . . 



Available from originator only 



Telephone (301) 7^3-J449 



\ 



In-Situ Cur}fettt ' • ' , LaAgi^age - JORTRAN . 

' ' • ' ' ' Hardware - UNIVAC UOjSyiK^ wordVDrum \ ^ / ^ 

Converts ^ope-minute^ averages of Interocean Type II currerit meter to staridar^^ijectorial values* 
Produces vectorial angle and velq^city for^each data point and then combines vecto^ially to 
yipid a mean value for entire period. Injiut : Card images of data points taken frpm RuA^rak 
recorders* ^ OutlJut: Printout of vectorial and five-minute average values, current speed and 
direction in knots, and*' degrees true^ ^ . ^ / 



Philip Vinson . » 

U.S..Nav^ O^eanographic Office 
Washington, DC 20373 



Available from originator only 
Telephone (202) 433-3878 



Watlr "^Displacement 
.BISPLA 



1) 



Language 
'Hardware 



FORTRAN ^ 

UNIVAC 1108/1,200 36 bit words/ 
3 tape units ^ 



Comp^utes water displacement result^g from Qcean current action^ Input: Current spefed and 
direction values on tape produced by current m^ter print program. Output:, InSividuaJ. and 
^cumtilative' displacements per selected unit time in ndut^cal miles; tabular printout, tape, 
or both.. ■ > • , * — i * ' ' . ' * 



' G^ald WfUi^ms / * / , 

Ij.S. Naval Oceanographic. Off ice 
V Uashingt<Jn,^DC 203^3 ^ 



Available from originator only 
Telephone (202) 433-4187 



Current Meter Print 



^Language 
Hardware 



FORTRAN , 

UNIVAC li08/10K 36 bit words/Drum/ 
3 tap^ units 



Calculates ocean current speeds and directions from Geodyne AlOl^optical current meters. Val- 
ues are convert^d^ to knots Md degrees and are vectorially averaged .over one-minute data frames, 
ten scans per frame. ^ Input: .Obs^rv^d current parameters from meter converter! from optical 
film t6 magnetic i:ape; parameters at e- in arbl/trary^ units dependent on ineter design. Output: 
Current speed and direction data; tabulat^^icintout an^ tape. Tape output drives -plotter pro- "* 
gram. . ^ « " * * - ^ ^ 



Gerald Williams 

U.S. Naval Ooeanographic Office 
Washington, DC 20373 



Current Meter Plot 



Available from originator only 
-Telephone' (202) 433-4187 ^ .^'J^>^ : 

^> '^^^^ 

Language - FORTRAN • ■ ' , 

Hardware UNIVAC • 1108/ ?K 36 bit words?3 tap^ 
^ts/<IalComp Plotter ^ 



Itoduces plotter tape to plot ocean current speed and direction infonfiation. Program calls ^ 
; ' \ CalComp subroutines. Input: Current speed £vnd direction data on, tape produced by Current Mfe- 
ter Print Program.- Output:^ 'Histograms, pol^r^ plbts, and point plots.' 




^rald Williams 
U.S. Naval Oceanographic' Office 
Washington^ DC 20373 



Convert Current Meter ^ape 
MAGPACK^ * 



Available f rom-originator only 
telephone (202) 433-4197 



tanguag^ FORTRAN V " > ^ ' 

Hardware t UNIVAC 1108/EXfeC a/ I^ist ructions 647 
words /Data 707 words/'2 tape units 



Converts^inary d^ata on Itape. f rem Geodyne MK IK current" meter to BCD tape, formatted and 
blocked for further processing, with edited time, compass, vane, , tilt, and speed* rotor, counts . 
Binary data" decoded with FORTRAN field functions and output blocked^ an^ formatted with sub- 
routine NAVIO. Author - Peter J. Topoly. ^ - ■ 

V • - 



Data Systems Office ^ 

U.S. Naval Oceanographic Office 

Washington,. DC 20373 



( 



\ 



Available from originatgr only 
Telephone (301) 763-144? ' 

7\ } ^ 



(hirrent Meter Data 
MPRINTO. 



^Language - FORTJlAN V ' ^ 

Hardware - mJIVAC 1108/EJCEC 8/Inst;;uations 

2- tape units ' ^ -9^-^ ^ 

C(»Dputes frame and scalTvalues of current meters (Geodyne AlOl -optical and ?flC III magnet*cO T 
calculates normalized unit vectors for vectorial speed, lists data, and, produces packed BCD 
tape. Input: BCD tape with rotor counts of compass, vane, speed, and ta.l^t» ^ Output:. ^5ack€?a 
BCD ^ape of frame data and averaged frame data (pack raue and averaging riate dpt^onal) . -Ku- 
thoj- - Peter J?* topoly.* . . ' * ' ^ , ^ - ^'^^ . 



Data Systems Office * ^ 
U.S. Naval Oceanographic Office 
Washington; DC 20373 



Available if rom originator only ^ 
Telephone, (301M63-1449 ' 7 



Current Meter Clock Sequence 
XTAL 



' V 



Language - FORTRAN'^V Extended - 
'Harlw4re - XDS Sigma 7/48K, worc^^'- (f§2K byte^) 

Verifies sequence of. crystal p-ock count values from VAQ^^or: deodyne 850 CAiri;ent meters. Btf4 
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V, 



ERIC. 



.:-<s.7i 



clock values, are^ }.dentified by use' of differencing techniques. Inputt Clock values on tape in 
^CARF format. ^ Output:'? Statistics of clock performance with catalog of erroneous values. 

^ , John A. Haltais ^ o • Available from originator only 

, Woods Hole- 6ceanographic" Institution -^j^ , » 

•Woods Hole, MA 025A3 ^^^hone (6f7) 548-1^00^ - 



Current Meter Calibration. 
CA^DEC 



Language - FORTRAN ly Extended 

Hardware - XDS Sigma 77A8K words (192K bytes) 



Applies calibration parameters to raw VACM current meter data on tape in cSf^ format., identi- 
fies *and removes>bad values, and stores the^output on Cape in standard buoy format. 



John A. Maltais 

Woods Hole Qceanographic Institution 
Woods Hole, MA 02543 ' . 



Available from originatojr only 
Telephone (617) 548-1400 



. Current' Meter Data Reduction and Editing 



Language - HP Assembly Language ' * 
.Hardware - HP 21O0/8K locations ACassettS 
reader/Keyboar'ci deyice 



r Transfers bur/^n^ met;^ data, from \^Qi cassette or Geodyne 850 cartridge magnetic tapfe to nine^ 
track co&puter compatiyl^a^. tape -at^cj' f l^ags ^data cycles which have errors. , ^ 

Hary Hunt ' ' - .^vailable^ f rom originator only 

Wbods Hole Qceanographic Institutioti *. ' - . . -t* . 

Jlfopds Hole,^ MA 02543 " ^'^ele^jhone* (617) 548^1400 



Surface turipent Summary 
SUFCUR ^ 



'Language/- As^embler^ * 
hardware - "IBM 360-6*5 



Prod(^ce^ a statistical sum&ary^of surface current observations for^each Marsden ^ten-degree) 
sqliare, one-degree square, or five-degree sqiaare and month for a given area. Author -Meffrpy 
(ibrdon- , - 



Qceanographic Seryices^ Branchi 
^ National Qceanographic D^ta CenrCer 
NQAA/EDS *' ■ ^ f ^ ^ 

Wasbingtolr; 20235 , 




Victor Tline Series- » 



CUHPLT6 



Copy on file^at NODC 



Telephone^ (202)^ 634-7439 



Lajiguage - FORTRAN IV 

Hardware" CPC 64(}b (SCpPE '3 .4) /115Kx (octal) 
, \\' 10-character wcJrds/CalComp 
536/905 Plotting ^System 



Compute and p\ots statistics , histograms, time- series, progressive vector diagram and spectra 
for time series'of Curreirt ,meter data. * Inpiit : vCurrent meter timQ series on tape in CDC 6400 
'binary format; maxlLmum number of data' points is ,1^26. Output: Listing and tape for off-line 
^ott^fer^ Perfect Daniel frequency window^ used to compute spectral estimate^f rom FFT- generated 
p^iodogram values. * '„ ' 



-James R. HolbrCok "^^ 
Pacific Marine Environme>r^al 
LaboratdiQ^, NbAA 
^711 FifteSfKh Avenu>< N.E: 
Seattle, WA 9^ 




jpftctra 



Available from oricinator only 



.Telephone (206)^^442 



-019/ 
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/. 



Processes "Current Instrument; Observabidns 



Language - FORTRAN II 
Hardware IBlf 1620 II 



Several programs and euljrqu tines processing Mlchelsens ContaLier data (automatic current 
and temperature measurement ^^<dr processing Ekman curx^ent meterXdata, and for harmonic analy- 
sis and power speCtj;um "^klysis* NATO Subcommittee on OceanograpHic Research Technical Report 
Vo, 37 (Irminger Sea Pxoject), "Some ^ORTR^ II Progra}ns for CompJter Processing of Gceano- 
^aphic Observations," by J!.B^^Sweers»^e'b. 1967.1 ^ \^ 

Geophysical Insti/tute . Cppy on tile- at NODC (abcJve report) 

University of Bergen , o * • • V. — ' ^ 

Bergen, Norway 



Current Meter Data Processing System, • Utnguage.7 MS FOR^PRAN - ' t ' 

' ^ . \ Hardwai:e CDC 3150/20K words/2 tape units/ 

• ' • , * ^ ' . ^ ' / CalCqmp Plotter r ' 

Processes data primarily frbm Brainqon or Aanderaa moored cun^dt meters; performs automatic 
editing, tidal analysis residuals, ti^e j)redict;ion , filtejing^ plotting; power spectra and sta 
tistical means and histograms are generated, ' Also performs "fil(fe management. 



Doug Gregory 

"Bedford Institute of Oceanography 



P. 0. Box 1006 
Dartmouth, N. S. 



B2y 4A2 



Available from originator^ only^^ 



Telephone (902) 426-2390 



/ 



V." 



TIDES ^ 



Astronomical Tide Prediction 



Unguage - EORTRAN IV 

Hardware IBM 360-195/80K bytes 



Computes hourly values and time and heights of high and low astronoi^lcal tides by harmonic 
method. Input: Tidal constituent constants. Technical ^morandum WBTM TDL-'6. 



N.A* Pore » 
Techniques Development Laboratory 
National Weather Service, NOAA* 
8060 .Thirteenth Street 
Silver Spring, MD 20910 



Available from originator only 



Telephone (301) 427-7614 



Tides in the Open Sea 



Language 
Hardware 



FORTRAN 60 



Predicts tides in the open sea, utilizing the basic hydrodynamic "equations , for the principal, 
lunar semidiurnal constituent M2. Application is made to^the a^lysis of the tidal regime in 
the fculf'of Mexico. Thesis by Thomas. H. Gainer, Jr., May r966. 



Naval Postgraduate S6hool 
Motvterey, CA 93940 



Available fron^NTIS, Order No. AD 489/a96/LK, 
$4.75 paper,'3|^.25 microfiche. ^ 



Harmonic Analysis pf Data 
t at Tidal Fireq^enbies 



r 



^ Unguage -/ FORTRAN IV 
; "vHardwa^ - GDC •6600*/l40K 

^^analyaing^ equally ^pScetf short-period data (15 day% or 29 days), this progr^Stlllzes the 
standard 'Fourier analysis and traditional ftiethod^ of the former .Coast and Geodetic ^rvey.l 
Either a vector (poiar ^form) or scalar variable may^.be analyzed; fo'r y^^^tor serled, the prp- • 
gram Allows either a major-i^lnor axis analysis or a north-ea«t component approach. No d^ca 
series may. exceed ;,OO0ftterms without reckmensioning in the program, and no series 'of other 
than ^15 or 29 day^ of uniformly spaced data can be analyzed . -^JC^e program accepts input via 
magnetic tape or ^punched cards in, any format with the* restriction that, for vectors with mag- 
nitude ^nd direction in the same record, the angles must preceddf the ampllt<rfes in the rj^co^* 
For vectors specif^fird by one file of amplitudes and one flAe of ditections ythe amplitude filb^ 
must be read fitst. Output; mean amplitudes and phases of 26 tidal const^feu^^s^^NOAA J^h- 
nical Report NOS 41, **A User J s Guide ta a Computer Program for H^onl^ Analys^of Data dt 
Ti^al Frequencies," by R* E. Dennis' and E. E. Long, ^Juiy 1971. ' ^* ^ * " 



<*Xhe Jftogram is executable with minor adjustments on an^r compatibly machine having a 140K raftn- 
ory and acces? to a^slne and arccosine. systems functions. Comt>up<tng 4ime is •ajjprox^mate^y 



*1»5 seconds per station orf the CDC 6600.) 

Charles R/Muirhead 
Chr^, Oc^anographic Surveys 'Branch 
NatlOT^ Ocean Survey, NOAA ^ 
6001 Exefcutive loUlevard , 
Rockville,"^5l3L 20852 • *' ' 



Deck ava^tible i 



roA^orlginator "^only ; f dr. throve 



report Cincluditig ^digram listing) , fi^i^iract^ 
Super in t-endent| '6f Wcuments , , UvSv^^fiov^nmen jT 
Printirng- Of f ic^eJ Washington , ^DC ^20402 
$.70, stock number "0317-0022. • 
telephone (^01)^443-8501 



Language - MAD 
Hardware - JBM 7090 



Theoretical Radial Tidal Force 
i ^/^ * • ' 

Input: »'(1) astronomical data from *the* nautical almanac r (2^^ the solar ephemerfs obtained ftom 
the same source (only the earth-sun radius vectq^ i3 ^needed) f^tS) list of local constants. 
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(• 



and longitude In degrees of arc and minutes, elevation In centimeters* Output :^ Lunar ^. 
olar J and total tidal forces and the vector ^ate. Program accomodates maximum of 725 hours ^' 
30 diys) of data In core storage* Author - Henry L. Pollak. 



Dept* of Earth and Planetary 
• Sciences / 
^ 414 Space Research Coordination f 
Center i 
University of Pittsburg 
Pittsburg, PA' 15213 



Copy on file at NODC (documented .listing) 



^•4 





1- 



- \ 



ERIC 



5i 
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WAVES 



Hurricane Storm Surge Forecasts 
SPUSH I 



Language - FORTRAN IV 
Hardware - CDC 6600/77K words 



Predicts hurricane sto«& surges for landf ailing storms^, aslng numerical solutions of linearized 
transport equations with sujfrface wind forcing and tlnie history bottom stress. Input: Basin 
data and storm variables, such ^s Intensity, size, anld vector storm motion. Output: Stormr ^ 
surge envelopes, storm definitions, and astronomical tl^s. 

Celso S. Barrlentos 
Techniques Development Laboratory 
National Weather Service, NOAA , 
8060 Thirteenth Street ^ 
Sliver Spring, MD 20910 



Available from NTlSr\ Magnetic tape, OrdoiW^o. 
C(»I-75-10180/AS, $250)domestlc, $312 foreign; 
User's Guide, Ordef'^O. C0M-75-10181/AS , $3.25 

domestic, $5.25 ^foreign 
Telephone (301) 427-7613 



Hurricane Storm Surge Forecasts 
SPUSH II 



Language - FORTRAN IV <f 
Hardware- CDC 6600/77K octal wq^ds 



Predicts storm surges for storms with general track and variant stoni^ondltlons ? using numer- 
ical solutions of linearized transport equations wltH surface vlnd forcing and, time history 
bottom stress. Input; Basin data, storm variables, and geographical description of storm 
track. Oiftput : Storm surge envelopes, sp^ce-tlme history of surges^i storm characteristics, 
and astronomical tides. . . * 



Celso S. r lento s 

Techniques Development Laboratory 

National Weather Service, NOAA 

8060 Thirteenth Street 

Silver Spring, MD 20910 



Available from NTIS: Sefe SPUSH I 



Telephone (301) 427-7613 



East Coast Storm Surge 



Language - FORTRAN IV 

Hardware - IBM 360-195/185K bytes 



Predicts storm surges generated by extratroplcal stj>rms for eleven stations along the U.S. East 
Coast. ^Forecast ^equations derived by statistical screening regression. Input: National Mete- 
orological Center PE model sea-lev^ p^agsure forecasts. Output: StorA ^urge forecasts \o 48 

Toc«t^r 



hours at 6-hour Intervals, for 11 Tocft^ns. 
N.A. Pore 

Techniques Development Laboratory 
» ^National Weather Service 
8060 Thirteenth Street 
Silver Spring, MD 20910 



NOAA Technical .Memorandum NWS TDL-50. 



Available from originator only 



Telephone (301)^ 427-7614 



\ 
\ 

\ 



Wave Forecasts 



r the 



Lanjguage 
, Hardware 



FORTRAN IV 

IBM 360-195/410K bytes/ 



For)Bcasts wind, waves and swells for the Atlantic aiid Pacific Oceans, using singular method 
based on the Sverdrup-Munk forecasting system. Input: National Meteorological Center 1000-mb 
PE model wind forecasts; Output: Wind wave and swell grid printed charts to +48 hours. Tech- 
nical Memoranda WBTM TDL-13 and TDU-17. 
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N,A, Pore* - 

Techniques Development) Laboratory 
Katlonal Weather Service, NOAA 
8060 Thirteenth Street 
Sliver Spring, MD 20910 



Available from originator only 



Telephone (301) 427-7614 



Wave Bottom Velocity 



Language - FORTRAN IV G Level 21 
Hardware - IBM 360-75/96K . 



Computes and plots maximum bottom (horizontal) orbital velocity versus stlir'water depth for 
Airy waves of given height and period. Output: ^og-log graph of u(max) at sea floor vs* 
water depth fdr each wave; also, "a listing of the wave's steepness, u(max) at bottom, wave 
lengthy and celerity Is produced, 7 



John McHone 
Geology Department 
TJniverslty of Illinois 
Urbana, 'IL 61801 



Copy on file at (listing, documentation) 



Telephone (217) 333-3542 



French Spectro-Angular Wave Model 



Language - FORTRAN IV/COMPASS 
Hardware - CDC 6500/CDC 7600 



Computes sea-sta^e, using a spectral approach Involving sixteen directions and six periods, 
dev^lsed by Gelel et al. Input: Wind -speed and direction. Output: Significant wave heigHt 
period of highest energy and direction of maximum energy fields, ^Detailed spectral breakdown 
for up to twelve points. 

\- 

Kevin M. Rabe Available from originator only 

Environmental Prediction 

Research Facility ' * - 

' Nav^air Postgraduate School . * * 

Monterey, CA 93940 Telephone (408) 646-2842 



Language - FORTRAN IV 

Hardware - CDC 3100/16K 48 bit words 




Surf Prediction Model 



Produces calculated wave ray paths, including the wave information and refraction and shoaling 
coefficients, usitig a modified Dobson approach to the solution of the general wave refraction. 
Technical Report No. 16, by B.S.L. Smith and 'f.E. Camfield, College of Marine Studies, Univer- 
sity of Del^are. » 



Kevin ^. Rabe 
Enviro'nmental Prediction 

Research Facility 
Naval Postgraduate School 
^Monterey, CA 9,3940 



Available from originator only 



Telephone (408) 646-2842 



Singular Wave Prediction Model 
\ 



Language - FORTRAN 

Hardware - CDC 3100/CDC 3200/32K 24 bit words 



Produces a wave height analysis for semi-enclosed seas. Uses a modified geostrophic wind de- 
rived from a local pressure analysis to generate an analysis of the sea state. Output: Wave 
height (ft), wave period (sec), wind speed (m sec~l) and wind direction (degrees). EPRF Pro- 
gram ^Note. 8, VTiie^^ve 32 Program,*' by S. Larson and A.E. And^on, Jr. 
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IT 93 



Sigurd Larson 
Environmental Prediction 

Research Facility 
Naval Postgraduate School 
Monterey, CA 93940 

^ i 



Available from originator only 



Telephone (408) 646-2868 



Wave Interaction with Current 
CAPGRAY 



Language 
Hardware 



FORTRAN 
IBM 370. 



.3|^20C 



2000K Region 



Calculates wave length, wave number, wave slope, and wave energy changes for waves' in the f 
capillary-gravity subrange as they infract with non-uniform current. A perturbation scheme 
using the gravity contribution of the c^t iillarv- gravitv wave as the perturbation parameter was 
used to integrate the energy equation exactly. ^ Input : Wave number K for waves with no current. 

^ Steven R. Long ^ Available Ejgom originator only ^ 

Center for Marine and Coastal Studi^ '^"'^ , 
North Carolina State University 

Raleigh, NC 27607 / Telephone' (919) 737-2212 



Shipborne Wave Recorder Analysis 
SBWRO " 



Language 
Hardware 



FORTRAN IV 
IBM 1800 



Given values of the highest and second highest crests, the* lowest and second loi^Jest tr 
the number-of zero crossings, and_ihe. -number of cre^s in. aTS bqrt r ecord from the NIO 
borne wave recorder, computes the spectral width parametexi ana the significant wave h 
also the predicted maximum height in a period of three fours r outputs the results on 1 



printer and on 




NI§ Program No. 89. Author - Eil 



of Oceanography 
Surrey, England 



. Copy on 



Language 
Hardware 




oughs , 
ship- 
eight and 
ine- 



(listlng, documentation) 



FORTRAN 
UNIVAd 




08/lOK words' 



Numerical models, ba^ed on the hydrodynamic equation and local depth fields, are used 
mine the flood levels expected from specific hypothetical storms. Publication TM-35, 
Surge on the Open Coest; Fundamentals and Simplified Predict^n," May 1971. 

(1) For program release: ' ^ lAvailable from originator only 

Colonel James L. Trayers \ 

Commander and Director ^"^J^) For program information: 

Coastal Engineering Research Center \ D. Lee Harris 

Kingman Building Chief, Oceanography Branch 

Fort Belvoir, VA 22060 Coastal Engineering Research Center 



to de|;er- 
"Storm 



Wave Refraction Language - FORTRAN IV * 

Hardware - UNIVAC 1108/15K words/Plottjer 

6alculates and plots surface wave rays. Input: Depth grid; xy and angle starting point of 
rays., Output: Pldtted output of shoreline and wave rays; listing of wave ray x, y, angle, 
time dnd depth. Publication TM-17, "A Method for Calculating and Plotting Surface Wave Rays," 
Feb. 1966. 
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(1) Tor program release: , Availal?le from originator only ^ 

Colonel James L. Trayers y 

Commander and Direct(^t (2) For program information 

Coastal Engineering Research Center D. Lee Harris 

Kitgman Building Chief, Oceanography Branch 

Fort Belvoir, VA 22060 Coast4l Engineering Research Center 



4 

Water- Wave Teaching Aids Language - FORTRAN 

Hardware - IBM 360-AO 

In teaching the ec^gineering applications of water-wave theory, it is often desira&te to have 
students make numerical calculations based on the various wave theories. This is prafc<ical, 
however » only for the simplest of the water-wave theories, as the computations involvea^th 
higher order t|ieories aVe quite tedious and time-consuming. This collection of programs and 
Subroutines represents an attempt to relief students of these* lengthy and detailed computa- _ 
tions, so that they can user^the theoretical r«suXts in solving realistio problems. At the 
sam^ time, there are gangers inherent ii(i developing and using cpmputer programs for teachjjig 
purposes. The principal difficulty is the "black box" syndrome, where the students merely 
punch some numbers into i a 3*rd and, later, get more numbers back from the machine, without the 
vaguest idea of what happened in between. In order to avoid this difficulty, and, in addition, 
to provide wide f Idfeibil-^ty , it was decided that the best format for this collect ign would be 
many^dhort, slftgle-futt^tloA 8,ubroutines, which compute some of the more tedious intermediate 
results for* a given problemi^ and which can be easij.y modified or added to by the user. The 
disadvantage of this appro^jj is that it requires some knowledge of FORTRAN on the part of the 
student. It is believed ,^ that this disadvantage is outweighed by the advantage of making the 
computational processes {flth clear and flexible.- / ♦ ^ 

LENGl computes wavC'lengEn and speed, given the w^ter ^epth and wave period, us ing^ ^Small-ampli- 
tude (and Stokes* second-order) wave theory. Values, ^re returned to the calling program 
through the CALL statement and are also printed out during executjion. LENG3 uses Stokes' third- 
order wave theory. * ^ 

PROFl computes water surface elevations, eta(x) or eta(t7, over a wave period, using linear 
wave theory; returns arrays of x, t, and et^ through tfhe CALL statement; prints input data and 
the three arrays.' Alternate subroutines PR0F2 an^ PROFS accomplish the same purpose using 
Stokers* second- and third-order wavjr equations. 

Subroutines UMAXl, WMAXl, UTMAXl, and WTMAXl compute u(max) , w(max) , the partial derj.vative of 
u with respect to t(max), or the partial derivative of w with respect to t(max) ,^ i.e. , the 
maximum flow velocities, in the x and z directions and their -corresponding temporal accelera- 
tior^s, as a function of z, from z « -h to z = eta(max) , using line^ wave theory. Returns ar- 
rays of 2 and u(max) etc., for z » -h, -(29/30)h, -(28/30)h , . . . f or ^ less than eta (max) , 
through t-he CALL statement; prints the input data and the two arrays. Alternative sets of rou- 
*lilnes carry out the same purpose using Stokers* second-; and third-order equations. 

Subroutines UOFTl, WOFTl, UTOFTl, and WTOFTl compute values of u(t) , w(t) , the partial deriva- 
tive of u with respect to t, or the partial derivative^ of w with respect to t, i.e., the Jiori- 
zontal and vertical flow velocities and their accelerations, over a wave period (T> at ^ 'given 
depth (z) using linear wave theory. Returns arrays of t and u(t) , etc., for t Os t7A0, 
2T/A0,..., T; tfirough the CALL stateident; prihta the input data and the two arrays. .AlterrfSr- 
tive sets of routines carry out the same purposd using Stokes' second- and* third-order equa- 
tions. , / ' ' 

The following four programs, dealing with spectra, were adapte<J (with permission) from the 
Share program Gl BE TISR, written at Bell Laboratories by M.J.RT Healy, 1962: DETRNiy*removes 
the: mean, or thfe mean ajad linear trend (slope) from a time series X(I), I =-l,N; AUTCOV j 
cdmputes the autocovariance, Y(K) , K « 0,L, of the time series X(I) , I « 1,N; CRSCOV computes ^ 
the. auto- and cross-covariances, ZXX(K) , etc., of the two sequences X(I) , Y(I) , I = 1, N, for 
lags from 0 to L; FOIJRTR computes either the sine, or'bosine transform, Y(Kj, K » 1, H + V, iof 
the serines X(K) , K » 1, N + 1 (smoothing of either is optional, with cSfefficients .25, .50, 
•25). y 




- ^ 



PROFILE computes and plots the w^/e profile given ^ spectrum (in the form of the Fourier coef- 
ficients). Ou^ut: A printer pW^ (on a, printer with a 132-character line) of eta vs. t.^ 

REFLl computes and prints water surfjkce profiles for the partial (two-dimensional) reflect^fon 
of a linear (small-amplitude) wave xrom a structure. . , ^ I 

^ , ^ \ ^ 

FORCE AND MOMENT computes t\ietotay force and moment (about the base, or "mud line"X on a -cir- 
cular cylindrical pile as a furUr^ion of time, using linear theory integrated to the actual wa-^ 
ter surface. A table of F and Mq vs. J is^ printed out. » ^ ^-^^ 

EDIST computes the fotce distribution on a pile, using linear theory. Prints out the data and 
the force distribution as a function o^ time. 



Listed and documented in Hydrodynamics Laboratory Technical Note No. 13, **Water Wave Teaching 
Aids,-"' by R.H. Cross, Sept. 1968. 




Department of Civil Engineering Copy on file at NODC (above report)^ 

Massachusetts Institute of Technology < \^ 

Cambridge, MA 02139 
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AIR-SEA INTERACTl'oJ^ A^D HEAT BUOQET 



Harkovfan Ax^lysls of TDF-14 Wind Da^a 



^ Language- PL/I Optimizj^ y - 

Hardware - IBM 370-I80/26OK bytes (cha/acters) 



Produces 9''x 9 and 33 x 33 matrtc^ of wind transition probabilities for user-supplied inter- 
val. Assumes wind xan be modeled as a ^rkov process, in which likelihood of wind speed and 
direction in next interval depends 5nly on current wind speed and direction. Input; TDF-IA 
formatted tapes of hourly and three:?hourly i?eather station d^ta, available from National Cli- 
matic Ce'titer, Asheville, NC 28*801. Output: Wind transition matrices by reason, steady-state 
probabilitie^, distribution of wind speed by direction. See publicjation MITSG 74-20, "Primary, 
Physical Impacts pf Offshore P^roleum Development," by Stewart and Devanney, MIT Sea Grant 
Broj^ct Office^ Aprii 1974.^^ - , 



J.W. Devanney III 
Massachusetts Institute of Technology 
Room 5-207 



Available from originator only 



Cambridge, 02139 



Telephone (611) 253-5941 



Summarizes Weather Repbrts 
SYNOP 



Language - FORTRANjALGOL input routine) 
Hardware - Burroiif?Ts 6700 /Less than* 20K words 



Processes synoptic marine radio weather reports to produce summaries of various items, by 
month. The validity of the data is checked against long-term mean values. Inpu^t: Disk files < 
prepared separately from punched cards. Output: Printed summaries by one-, two-, and five- 
de^Qe quadrangles', of sea and air temperatures, heat budget information, and barometric pres- 
sure; also punched cards for selected summary items. , * . 



A.J. Good 

Southwest Fisheri^^ Center 
National ^Marine Fisheries* Service, NOAA 
P»0. Box 271 



Available from originator only 



U Jolla, OA 92037 



Telephone (714) 453-2820, ext. 325 



Pyranometer anA^ Radiometer Time Series 
RAD ^ * 



Language - FORTRAN ^ 
Hardware - CDC 646o/53K words 



Converts pyranometer and new rtidi^meter* readings to radiant intensity. Input: Cards with 
'jiuhched values of time, voltage values from a net radiometer, pjrranometer , humidity sensor, 
ailr' thermistor , wind speed detecter, and values of sea-surface temperature. . Output: Listing 
of the above values converted to proper units plus comjtpted values of net sol£^ "radiation, 
evaporative and conductive fluxes, total flux, effective 1$ack radiation, trapsmittance. Solar 
altitude, and albedo. < ' 



R.K. Reed 

Pacific Marine Environmental 

.Laboratory, NOAA 
3711 Fifteenth Avenue N.E. 
Seattle*, WA 98105 ' 



Ocean Climatology Analysis Model 
ANALYS 



Available from originator only 



\ 

Telephone (206) " 44^019? 

. \ • ■ 
Language. - FORTRAN 

Hardware - CDC 1604/16k 48 bit words/Drum/ 
3 tape units 



Produces monthly climatological data fields. Input: Synoptic fields, first-gu^ss climatology 
field. Uses a Laplacian relaxation technique. ComfTuter Applications, Inc., Tech. Report, 




"DoQumentation of Subroutine ANALYS," by J.N. Perdue'. 



Kevin Rabe 
Environmental Prediction 

Research Facility 
Naval Postgraduate School 
Monterey, CA\ 93,940 



Available from originator only 



telephone (408) 646-2842 



Hurricane Heat Potential Model 



Language - FORTRAN IV 

Hardware - CDC 6500/20K 6b bit word^/Varian 
Plotter optional < 



Computes- the hurricane heat potential using the station temperature profiles in the form of' 
punched cards in 4-D format. Output: a profile plot, hurricanlrhfeat potential, final Varian 
plot of area with all heat potentials plotted. TheSis by LCD^ Shuman. 



Kevin ri'. Rabe 
Environmental Prediction , 

Research Facility ^ 
Naval Postgraduate School 
Monterey, CA 93940 



Available from origina^r only 



Telephone (408) 646-284*2 



Mixed Layer Depth Analysis Model 
MEDMLD 



Language -.FORTRAN /COMPASS 

Hardware - CDC 3100/CDC 3200/32K 24 bit words/ 
Drum/3 tape units 



Gefaerates an analyzed mixed layer depth field using ship reports and a first-guess field in 
the form of an a4Justed climatological MLD field. *The program uses a Laplacian ^alysis and 
relaxation scheme to generate the final field. Output: ^An analyzed mixed layer deto^h field 
on a synoptic basis. EPRF Programming Note 7, ' "Mediterranean Mixed Layer Depth AnlS^sfs "Proy 
gram "MEDMLD," by A.E. Ai^erson, Jr. 



, Sigurd^ Larson 
Environmental Prediction 

I?esearch Facility 
Naval Postgraduate School 
Monterey, CA 93940 



•Availabye from ori^nator only 



Telephone (408) ^646r2868 



Atmospheric Water Content J^del 



Language FOkTRAN (CDC 3100 MSOS) 

Hardware - CDC 3100/12K octal words (24 bit*)/ 

15K octal wortis with system (MSOS) 



Computes total grams of water pres^ent in atmospheric colunm. surrounding ascent )of radiosonde. 
The method used is based on Smithsonian tables and formulae. Comjpressibility of moist air Is 
assumed equal to one. Output: Various intermedia^^^alues plu^ .geometric height and total 
quant j,ty o^ water in grams. 



T. Xae^astu or A. Stroud 
Environmental Prediction 

^es exarch Facility \ 
Naval Postgraduate School 
Monterey, CA 93940 



^ Available from originator only 



Telephone (408) 646-2937 



/Ocean-Atmospheric Feedback Model 



Sim 



Language - FORTRAN IV 

Hardware - CDC 6500/7OK 60 bit^words 



ulates the response of tKe surface air to sea-surface .properties and also the processes of 
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me808cale feedbt^ic mechanisms; EPRF Tech. Paper 2-72, "Th6 "Effects of Oceanic Fronts on I^rop' 
ertles^f t\it Atmospheric Qqundary Layer,** by T.^ Laevastu* K, Rabe, and. G.D* Hamilton. i 



Kevin M, Rabe 
'Environmental Prediction 

Research Facility 
Naval Postgraduate School^ 
t Monterey, CA 93940 



Available ftom originator only 



Telephone (468) 646-2842 



Vflnd Cdmputailon from Ship (^slervatlons 
TRUWIND ' 



/ 



Language FORTRAN 
Hardware - CBC 1604/16K 48 bl^ word^ 

Calculates the true wind direction In degrees and ^peed In knots, given the direction and 
8pe"ted of the ship and the observed wind direction and speed. EPBFi^rogram Note 16, "Program 
TJrtlWIND," by Baldwin van der Bljl.; ' ^ ' ' 



Talvo Laevastu 
Environmental Prediction 

Research Facility 
Naval Postgraduate School 
Monterey, CA 93940 



Mle Scattering Computations 



r o^y 



' Available from originator 



Tilephon^ (408) 646-2937 ^ 




Language - FORTRAN % 
Hardware - 'CDC 3800/CDC 6§00/32K 



from 



Uses Hie aqat taring theory to compute the angul^ distribution of scattered radiation from 
spherical partlcite^, for a-^nge of values of Inti^ of refraction ana size parameter w^itr/X 
(where r » particle radius an^ X> -/Wavelength >pf Incident radlat jfepn) •\ 



James V, Fitzgerald 
Naval Research Laboratory 
1 Washington, DC 20375 



Solar Radiation Conversion 



4^ Available from orlgfnatc 
Telephone (202). 767-2362 



only 



Language - FORTRAN 
Hardware - IBM 7074 



Averages the radiation readings from the Eppley pyrhelltometer and Beckman-^hltley radiometer 
for .every 15 minutes. Converts from MV to Langleys/mln, and calculates net radlatlofr from" 
both lastniments, A modification of this program was made to Include a Thomthwalte rkdi 
,ometer,%|!Autihors'- S,H» La^anoff; modified by, Mary; E, Myers*. ^ f J 



Data Systems Office 

U.S. Naval Oceani^graphlc Office 

'Waajilngton, DC 20373 



Wind Stress 



Available from ot*i%lnator only 
Telephone (301) 763-1449 



Language - ^FORTRAN 



I 



. Hardware - IBH 7074 

Determines wind stress on the ocean surface. OS No. 53462. Author - W.H. Gemmlll^ ^\ 



Dat^ Sys'tems Offj.ce 

U»S. Naval Oceanographlc Office 

Washington, DC 20373 



Available from orlg;Lnator only 
Telephjbne (301) 763-^449 



Two-Dlmenslonal >Power Spectrum for SWOP^I 



Language - FORTRAN) 
Hardware -^IBM 7074 
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DeteWnation" at spectrum associated with the spatial distribut*ion •]^f energy as obt.ained from ^ 
ap instantaneous picture, of the ocean taken from aircraft (SWOP II). OS NO. 53484;| Author - 
CM. Winger. . 



/ . 
Data Systems Office 
U.S. Naval Oceanogfaphic* Of f ice 
Washington, DC 20373^ 



Available f rom^ originator only 
Telephone (301) 763-1449 



/ 

Prediction of Vertical Temperature Change Language - FORTRAN 

I * Ha^ware - IBM 7074/Bc?n8on-Lel!ner Plotter 

. ^ ' t% 

A technique based primarily on^heat budget and wind mixing calculations has been developed for 
predicting the .vertical thermal structure of the ocean; the technique essentially modifies the 
Initial thermal structure through incident solar radiation, back radiation, sensible and evap- 
orative heat exchange, convective heat transfer in the watet mass, and wind mixing. Predic- 
tions are made at six-hour interval^until 1200Z on the date of forecast. The predicted BT is 
printed out, and also can be plotted with a Benson-Lehner Model J plotter. Authors - W.H. 
mill and D.B.* Nix. 'Informal manuscript report IMR No, 0-42-65, Oct. 1965. (See also IMR No 
' 0^45-65 by B. Thdfapson and IMR No. 0-13-66 by Bamett and Amst^tz) Program listings separat 
from reports. 



Gem- 



Data Systems Office 

U.S. Naval Oceanographic Office 

WashingtoSff J)C 20373 



Copy on fj.le at NODC (Above reports 0-42-65 and 

0-45-65; a^jo listings) 
Telephone (301) 763-1449 



Cloud Cover, and Daily Sea Temperature 



Language - FORTKAN 
Hardware - IBM 7074 



Divides cloud cover into three groups and computes mean temperature by hoiit of day and by day 
for each ekpth. OS No. 53414. Author,^ D.B. Nix. 



dhta Systems Office ' ^ 

U.S.* Naval Oceanographic Office 
Washington, DC 20373 



Available from originator only 
Telephone (3()l) 763-1449 
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(■ 



Sea (ce Studies 
'YARlf» FUP, SALPR.^ITE 



Language - FORTRAN IV. 
Hardware - IBM 7090-94 



A generalized prc/gram with several options that allow conslderabJLe latitude In the specifica- 
tion of Input and output data. A main program r6ads In the Inpi^t data and^ sinrnnarlzea the re>- 
8xj^s of each year's Integration. Subroutine YARIT calculates t\ie temperature and thickness 
changes of the Ice and snow for each time step during the year. Subroutine FLIP takes the 
monthly values of the Independent energy .fluxes ,at the upper boundary and pro<Tuces smoothed 
values for each time step. Subroutine ^ALPR calculates the salinity profile for each time 
step. Finally, subroutine RITE writes the temperature profile, thickness and mass changes 
for each ten^ay period throughout the year. Memoranduni RM-6093-PR, "Numerical Prediction of 
t"he Thermodynamic Response of ^rctlc Sfea^ce to Environmental Changes," by G.A. Maykut and N. 
Untersteiner , Nov. 1^69. Prepared for U.S. Air Force Project Rand. % 



The Rand Corporation - 
« 1700 Main Street 

Santa Monica, CA 90406 



Wind- Drift and Concen^ation 6f Sea Ice 
ICEGRID MODIFIED 



Available from NTIS, Order No. Ad 698 73;/LK, 
$7.00 paper, $2.25 microfiche. 



Language - FORTRAN 60 
Hardware - IBM 1604 



Takes into consideration the effects of melting on the production of five-day forecasts of the 
wind drift and concentration of sea ice, using equations after Zubov and an earlier program of 
Knodle. Uses a 26x21 grid-polAt array with variable scale. Output fields are conce'ntratlon, 
direction, a;id distance of movement. Incorporates programs ICEME^T and ICEGRID. .Thesis by 
Kenneth M. Irvine, 1965. • * ' s 

Nav^ Postgraduate^ School Available from ^IS^ Order. No. AD 475 252/LK, 

Monterey, CA 93941J $4.25 paper, $2»25 microfiche. » 

' • ; • 



•Iceberg Drift , Language - FORTRAN IV 

ICE-PLOT ' Hardware - CDC 3300/31K words 1 

> \ • . ' ' 

Provides twelve hours of ^ceberg drift, iceberg input for Ice Bulletin, and map outline for 
FAX broadcast. Input: Twelve-hour average wind field, monthly surface current, and initial 
iceberg position (or previous, updated position if not a new berg). Output: Listing of new 
iceberg positions. Ice Bulletin message form, and map of approximate new Iceberg positions.. 
Vector addition of average winds and currents using four geographical "courses," twenty minutes 
(iat./longO apart. • * 



.CDR A.D. Super ' 
Intema^ioipl Ice Patrol , 
U.S. Coast Guard \' [ 
Bldg. 110, Coast G^ard Support Center 
Governors Island, NY 10004 



Available from originator only 



Telephone (212) 264-4798 



Ice Drift Analysis /Forecast 



Language - FORTRAN II ^ ' , 
Hardware - CDC 160A/8K 12 ^bit words/3 tape 
# ^ \ * units * • . 

'ON- ' ' J 

Forecast or analysed geostrophic winds and average sea-surface currents on magnetic tape are 
required jinput. The geostrophic winds are ^ayeraged over the time period specified* by type- 
writer input. The ice drift equation^ are applied to the resultant wind, and sea surface cur- 
rents are added. Output is in the fox;m of forecast or analyzed ice drift, (movement) at '^prede- 
termined locations (points) to a maximurii of 207. - . ' .* 



ERLC 
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Lt. Roland A* Garcitfy USK Copy'^ file at HODC (listing doc^umentation) 

Pieet Weothor^acility Suitland ' ^ 

Sultiand, MD 20a73 Telephone (301) 763-5972 



e6 »■ 



\ 
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^OUND , ' ^ . ^ . > ^ 



Normal*. Mode Calculations Language -.FQRII^ IV * 

N0BM0D3 , Hard\^a,re - CDC 6500/60K octal wqrds/CalComp 

^ , * or other plotter 

Calcinates discrete formal modes and resulting {propagation 16ss for depths and ranges of In- 
te*rest» This Is a deep water version of 'a program originally, written by Newioan and Ingenlto 
(NRL Report' No, 2381, 1972). Appropriate for deep profiles and moderate^ frequencies (-100 Hz), 
the program uses a finite difference technique to generate mode shapes from the bottom up to 
the surface, It^earches for appropriate eigenvalues yielding proper number of zero crossings 
and zero pressure at the surfa'ce, NOL Tech. Report 74-95. ms^ 

Ira M. Blat stein , Available from originator only 

NavaL Surface Weapons^ Center , * 

White Oak 

Silver Spring, iJX 20910 Telephone (202) 3^4-2583 



Horizontal Range ' Unguage - FORTRAN 

RANGE / Hardware - CDC 6400 

Computes horizontal range from a receiver to a sound source as a function of the D/E angle, the 
sound spetftiprof lie, the source and receiver depths, and the water depth and bottom slope at 
the point ot bottom reflection. Assumes that' the surface is flat, no horlzbntal variations in 
soTind speed profile, and a flat earth. Only th^ two-dimensional case is considered. NOL Tech. 
Note 9856, , , . . v - ' 

M. M, Coate Available from originator only 

^ Naval Surface Weapons Center ^ ^ . ' 

Code 221 * * - ^ ' 

.White Oak * , * . 

' Silver Spring, MD 209LO 'Telephone (202) 394-2334 



Soi^id Scattering by Organisms Language r FORTRAN IV 

SJCAT Hardware -^C 1604/16K 48 bit words 

Simulates the*^scatterlng of 9pund by organisms of various shapes and dimensions. 

Talvo Laevastu ' Available from originator only 

Environmental Prediction > . 

Research Facility ^ ' / ' 

Naval Postgraduate School ^ 
Monterey, CA 93940 j ' Telephone (408) 646r2937 

V 7 •/ ' ' ^ 

Normal Mode Propagation Model Language - FORTRAN V 

Hardware - UNIVAC 1108/Drum 

' , - ^ 4 

Produces propagatlot| loss^as a function of range and depth, time history of receive^ pulses, 
mode enhancement information, ray equivalents, group velocity, phase velocity of modes, using 
as .Inpft sound velocity pjcoflles, frequency, Source and receiver depths, bottom topography and 
composition, and selection of modes. For certain plots, plotting programs are required, NUSC 
Report 4887-11. ' . . 

William G. Kanabls , • Available from originator only 

Naval tfndefwater Systems Center . - 

, New London, CT 06320 Telephone (203) 442-0771, ext. 2353 



rey, ^ 



f 
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Sound Refraction Corrections^ 



Language 
Hardware 



FORTRAN ^ 
.CDC 3300 



Computes data and fits polynomial functions to variable used to correct for bending of non-re- 
fljectlngt nonvertexlng sound rays. ^ Least-squaYed-errof type fitting (stepwise regression not 
used, but would impi^ove program). Input: Sqund velocity profile > limits of Integration, do- 
main' of polynomial. Output: First to fifth degree polynomials^ accuracy of FIT. 



A,E, Vaas. 

If aval« Underwater Systeifla Center 
Newport > RI 028A0 . 



\ 



Beam Patterns and Wldtl)s 
GBEAW * ' 



Available frbq^k originator only 
Telephone (401)''641-3435 



Language - FORTRAN »V 

Hardware - UNIVAO 1108/18K woArds/lGS Plotting 
System 4 



Computes beam patterns and their beam widths for three-dlmflnslonal array with arbitrary element 
spaclngs, taking Into consideration Individual element's directionality. Selectable delay, and 
shading. Also calculates directivity Index and/or reverberation Index, Formulation basedt on 
three--dlmenslonal spherical and solid geometry.. Direct i^ty Index and reverberation Index cal- 
culations are carried out by two-dimensional parabolic numerical Integration, NUSC Technical 
Report 4687. ' . ' • • , . 



Ding Lee or^Wst^ve A. Lelblger 
Naval Underwater' Systems Center 
New London, CT 06320 



Available from orlgx^^tor only 
Telephone (203) 442-0771 



Statistics of Acoustic Measurements and 
Predictions - STAMP - 



Language - FORTRAN V . ^ 

Hardware - UNIVAC 1108/60K variable 



A general purpose processing program which includes a module for performing statistics of 
acoustic measurements and predictions. Storage requirement is variable; prp^ram is segmented* 
60K is the maximum. / User*-s Guide in preparation. \ * ^ 



I|[lchard B. Lauer 

Naval Undei;water Systems Center 

New London » CT 06320 



Available from originator only 
Telephone (203) 442-077^, ext, 2827 



Propagation Loss 
fast) FIELD PROGRAM 



Language 
Hardware 

7' ^' 



FORTRAN IV 
UNIVAC '1108' 



Calculates u'&derwater acoustic propagation loss as a function of range for a point monochro- 
matic source in a medium with an arbitrary sound speed profile versus depth, .Spe'cial input- 
output requirement: Sounds speed profile fitting program. NUSC Report Nos, 1046 .and 4103, 



Frederick R, DlNapoli * 
Naval Underwater Systems Center 
New London, c'T 06320 



Available from oAginator only^ 
Telephone (203) 442-0771, ext, 26'47 



Bottom Reflectivity 



Language - FORTRAN' II , 
Hardware - UNIVAC 1108 



Computes three acoustic reflection coefficients as a function of incident anglLe and frequency. 
The program accounts for differences in path length, depth of source and receivers, water bot- 
tom slope velocity gradient, and recorded travel time. USL Tech, Memo. Nos, 913-4-5 and 907- . 
144-65, The later report, also serves to document a supplemental program (USL No, 0429, in ^ 
FORTRAN) fot computing means and standard deviations of the three reflection coefficients. 
Program No, 0289, • ' . * 
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R, ^Ittaker * 
Havar^ Underwater .Systems Center 
'New London, CT 06320/' ' ' 



Copy on file at NODC (llstlnf, documentatloti) , 
Telephone (203) 442Hif71,' ext. 2316 . 



Battem Function Calculations 



Language - FORTRAN IV 
Hardware -^UNIVAC 1108 



\ 



Computes transducer pattern funttions needed in the sonar equations when estinmtlng search per- 
formance of acoustic torpedoes • The desired paramfejters Include the transml^ and receive direc- 
tivity Indexes and the volume and boundary reverberation indexes • In a vehicle employed in 
circular sear;ch/the reverbsration indexes are functions of turh rate and elapsed time in the 
ping cycle. The output is used by the "Sonar, in Refractive Water" program. Report* AP-PROG-C- 
7035^ "Pattern Function Calculations," by Herbert S. 'Kaplan, Associated Aero Science ^^borato- 
ries. Inc., Pasadena, for NUSC, Apr. 1967. » ' ^ 

Ijfaval Undersea Ceijtet , Copy on 'file at NODC (above report) 

Pasadena Laboratory' ' ^ • 

3202 E. Foothill Blvd. - ^ 

^ Pasadena, CA 91107 t ' 



Riwleigh-Morse Bottom Reflection Coefficients Language - FORTRAN V 
-HAWOR i Hardware - UNIVAC 1108 

Computes Rayleigh-Morse bottom reflection coefficients, also phase changes of the reflected and 
transmitted acoustic wave. Author -^.C. Reeves. ^ 



Naval Undersea Center 
Pasadena Laboratory ^ 
3202 E. Foothill Blvd. 
Ilasadena 91107 



Copy on file at .NODC (listing, document at ion): 



f " Q 

Light and Sound Instruction D 



Language - FORTRAN 
Hardware - IBM 7074 



Computes the convergence .zone parameters using the method (equations of Donald Cole) , by 
oner-degree quadrangle, by month, and by season. OS No. ^20112. Author - M.C. Church. 



Data Systems Office 

U.S. Naval Oceanog;raphic Office 

Washington, DC 20373 



Available from originator only 
Telephone (301) 763-1449 



Propagation Loss 
S15a7$ 



Language -'FORTRAN V ^ 
Hardware - UNIVAC 1108/CalComp or* Stromberg- 
^ Carlson 4060 plotter 

Producep printed tables and plotted contours of single-frequency near-surface prppagatlon loss, 
-•i. NUScMl Technical-Memorandum No. 2070-356-70 and memo serial PA4-101, 2 May 1973. 



C . 



/ 

T.A. Garrett < • Available from originator onl^r 

Naval Underwater Systems Center 
New London, CT 06320 



Telepho^' (203) 442-0771, ext. 2991 



AMOS Propagation Loss 
S1797 



Language - FORTRAN V 

Hardware - UNXVAC 1108/Stromberg-Carlson 
4060 plotter 



ERIC 
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Computes and plots AHOS and modified ^OS propagation loss as § function of range, frequency, 
or d^pth, NUSC Technical Memorabdiun FA4«225-?1 and memo *serial FA4-101, 2 May 1973. 

<>. T.A. Garrett ^ ' , ^ ' ^vailablle from originator only 



Haval Underwater Systems Center 




SOUND VELOCITY 



Sound Speed Computation Model Language -.FORtKAN 

SOVEL Hardware - CDC 3100/CDC 320a/CDC 1604/32K 

14 bit words/l tape unit 

Computes spund speed from sallnlty-temperature-depth data. EPRF Program Note 10,* '^Program 
SOVEL, by T. Laevastu. ' \ ^ * . 

Talvo Laevastu Available fronforlgi^ator only . 

Environmental prediction 

Research Facility r 
Naval Postgraduate School 

bSnterey, J::A 93940 ' ' Telephone (408) 646-> 



Sound Velocl^ty , , Language - FORTRAN IV-H. 

•SONVEL • ' Hardware - XDS^Sigma 7 




Subroutine computes the speed of sound In seawater from the temptrature, salinity, and pres- 
sure, according to W.D. Wilson's formulas. * / ' ^ 

Mary Hunt ^ Available from originator oAly 

* Woods Hole Oceahographlc Institution - 

\ Woods Hole, MA '02543 * Telephone (617) -548-1400 ^ / 

• - • . . ■ . . / . ^ - r 

Sound Velocity: Wilson's Formula ^ Language -.FCfRTRAN , , • v n 

WLSND, SVBLFS, VELPRS Hardwa^ - IBM 360-65/2218 bytes (object form)^ 

' Computes sound velocity using Wilson's equations. WLSND Is used when pfessufe Is computed from 
depth and FS Is -computed from salinity. SVELFS Is usecL^en pressure Is computed from depth 
ancTFS Is the entering argument; In this case, FS l^^usu'^Uy computed In SIGMAT. VELPRS, Is 
used when pressure Is not computed but Is an entering^ argument; atmospheric 'pressure Is In- ^ " 
ciuded; successive computation starting at the ocean 1? not necessary here. Author - Robert 
Van^Wle. ^ , ' ' \ 

Oceanogr^phlc Services Branch * Copy on file ^t" NODC 

National Oceanographlc Data Center 

NOiC^/EDS ^ • ' , ^ 

Washington, DC 20235 Telephone (202) 634-7439 

I . * ^ 

Depth CorrectJlon * Language - FORTRAN IV 

MTCOR - .Hardware - XDS Sigma 7/1419 32 bit words 

Calculates death correction for sound velocity using Matthews' tables. Established coefficients 
are used to Ipproxlpate Matthews' tabli^s. The Matthews' table number 1-52 must be specified. 

Robert C. firoman ^ Available from^ originator only 

Woods Hole Oceanographlc Institution 

Woods Hole, MA 02543 . ^ Telephone (617) '548-1400 

■ * • / ». 

Sound Velocity . \ \ | / Language - FORTRAN 



\ 



Hardware - UNIVAC 1108/6,100 36' bit words 



Adj 



usts sound velocity values for marine sediments, as recovered trom laboratory veloclmeter, 
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to In sltu^ndftlond of temperature, preslBure, and flallnlty. * tflleen*8 formula for sound speed 
ih vat6r IsN^used to ^ply corrections. - ^ * 

- * • ' 

Joseph Kravltz * Copy on file at NODC (deck with documentation) 

U.S. Naval Occ^nographlc Office • ' - ' ^ - 

Washington, DC 20373 • Telephone (202) 433-2490 



. ' Sonic Velocities through Solid Samples 
^-r^DSDP/SONlJAM. 



Langue^e - ALGOL 

Hardware -Burroughs 6700/ 7K words 



Computes sonic velocities through solid samples from technicians* data taken from a Hamilton 
freme device (Dr. Edwin K. Hamlltgn, Naval, Undersea' Center, San Diego, CA 92132), and Inter- 
^ prets a key associated with eafth sample wfilch defines lis origin. Input: One card file for 
the velocity da£a arid key, and another cdrd file for interpreting the key. Output: Listing 
with option for -punched cards; listing includes five superimposed Histograms of velocities at 
different levels cff refinement. 



Pet^r B. Woodbury 
4Peep Sea Drilling Project 
' Box 1529 • ^ 
La JoAa, CA 92037 ' 



Light and Sound Instruction B 



Available from originator only 
Telephone (714^^2-3256 ' 



/ ■ 

anguace - 



Larfguage - FORTRAN 
hardware - IBM 7074 



Computes the harmonic mean sound' velocity, travel time, and cortectiofn ratio at 100-fathom 
depth Intervals by one-degree square. OS No. 20111. Author - M.C. CHurch. * 

% Data-- Systems Office * AvailaWe f r<?m originator only ^ • . 

U.S. Naval Oceanographic Office ^ t i ' - ' , • 7 ' 

Washington, DC; 20373 Telephone (301) 763-1*449 
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SOUND — RAY PATH 



Cpatinuofts Gradient Ray Tracing System Language fORTAN V « ' 

•CONGRATS ' . ' ' ' Hardware - UNIVAC 1108/50K 36 bit words/pisk 

^ . ^ • drum with 250K word8/2.tape 

** • 1 " unlts/CalComp Plotter * * 

' , ^ . . . / . , 

^J)raw8 rax diagrams, computes elg'enrays, and 'calculates propagation loss and reverberation. Uses 
ray tracing method In which sound speed Is represented as a function of depth with a continu- 
ous gradient, and the ray eqilatlons catHse intcfgrated In closed form. Input: Sound speed 
profile ,\ bottom profile, sonar and target geometry, frequency, beam patterfls, pulse length 
(number /of these required depends on output desired), ^«Putput; Ray diagrams, propagation loss 
V8, ran^e. pulse' shape at a point, reverberation vs, time, NUSL Report No. 1052, "CONGRATS I: 
'•Ra5L.2i:ottlng and Elgenray Generation" by H, Weinberg, Oct, 1^69; NUSL Report No, 1069, "Con- 
tinuous Gradient Ray Tracing SysteiA (CONGRATS) II: Elgenray Processing Programs," by J,S, 
Cohen and L,T,. Einstein, Feb,. 1970; NUSC Report No, 4071, "Contlrious Gradient Ray Tracing Sys- 
tem (CONGRATS) III: Boundary and Volume Reverb eratl^on," by J,S, Cohen and H, Weinberg, April 
1971; and other reports, ' / . " * 

' •* 
Hetiry Weinberg or' Jeffrey *S, Cohen Available from otlglnator only 

, , Naval Underwater Systetas Center ^ 

New London, CT' 06320 Telephone .(^03) 4A2-0771, ex^, 2589 or 2989 



Acoustic Performance and Evaluation 
Dlglgraphlcs, APE-DIGI ^ * 



LanguagjB - FORTRAN ^ 
Hardware - CDC 330t)/64K/CDC 274 Dlglgraphlcs 
console, controller, software 



The model simulates and displays,- on a real time basis, the acoustic propagation' characteris- 
tics of »any given *t)cean medium Including ray paths , • Intensity loss vs range curves , and Isq- 
loss contours. Includes provisions for transducer patterns target charaqterlstlcs, and cer- 
tain receiving circuit characteristics. Input: Ocean profile (SUP, BT) , operating frequency, 
db, levels for Iso-ioss contours. Graphic and tabular output. The ma^ujaodel employed ^^3 a 
substantial extension of an ORL program and is based on the theory of My-path acoustics as 
presented in "Physics, of Sound in the Sea" and a work by Officer; also. Included are the works 
of Schulkin and Marsh for adsorption coefficients, Wilson for sound velocity, calculations , and 
two Vitro Laboratory Studies of Toledo tIKA8 acoustic performance. KUSC.TD 130, "Operation 
Procedures for- Exercising the Acoustic Performance and Bva^uation-Dlgigtaphics 'Simulation 
•Model (APE-DIGI)," July 1971, . \ 



^ Ronal^ P', -Ki^li 

Nav^l Underwater Systeiis Center 
, Newport^ RI 02840 



Available from originator only 
Telephone (401) 841-3A35, 



Ray Path 
S0434B 



Language - FORTRAN . 

Hardware - UNIVAC 1108/30K/CalComp Plotter 



Produces plots of travel vq. range for D,. SR*, BR," SRB, BRS, SBSR, BS^patha, grazlfig angle) 
for first thrae bottom bounce paths. Estimates ray paths and travel times by approximating; 
true profile with linear segmented profile. Input: Source, receiver <y5n]flguratlon, yelocl 
profile, and plot requirements. " I ' 

Peter D. Her stein Available from originator only 

Naval Underwater Systems Center ~ "^^"^ " 

New London, ,CT 06320 ' Telephone (203) 442-0771, ext, 2305 
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optical Acoustic 'Ratio 



Langutige 
Hardware 



FORTRAN 
IBM 7074 



'Determination of critical ratio of trlgonomejtrlc functions of acoustic angles Involved In con- 
-nectlon with the convergence Interval for a 3-layer model of the oceai^. OS No. 53483. Au- 
rHhCT - C.M. Winger. 



Data Systems Office 

U.S. Naval Oceanographlc Office 

Washington, DC 20373, 



Available from originator only 

♦ 

Telephone (301) 763-1449 



GRASS Underwater Acoustics 
Prediction System 



IXKTOV 
f ^^CTOUR 

T _^PRFPLf 
SERPm^ 

f '?**-RAPrDT 
LOSSPLOT 



Language - FORTRAN^ 63 ^ 
Hardware - CDC 3806/Drum Scope j2.1 CalComp 



DTSTOV 
VFC 

crdoR 

PRFPLT 
SERPENT 
RAPLOT 
LOSSPLOT 



Plotter 

7,679 48 
20,832 48 
27,452 48 
11,622 48 
36,784 48 
12,118 48 
19,543 48 



pit words 
bit words 
bit words 
bit words 
bit words 
bit words 
bit words 



BtSXOV converts salinity, temperature, and depth (STD) data to sound speed profiles, using 
Leroy*s second equation (Eq. [7] In J. Acoust. Soc. Am. 46: 216-226, [1969]). ;Lnput: cards 
and data-Identifying parameters. Output: Profile ranges, latitudes, longitudes, depths, 
temperatures, salinities, and sound speeds punched and/or printed. Pressures may bg printed 
as an option. " ^ , 

VFC is used: To "examine Input bottom- topography and sound speed .data for consistence and* 
physical meanlngfulness; to extend all Input sound speed profiles to the oce&a bottom; to 
perform ^arth curvature corrections; to determine derivatives of soi^nd speed data. Two-- 
dimensional sound speed fiel(^s modele4 using a combination of cubi,c spline and linear 
interpolation schemes* Inpuf : bottom topography in the form of nt)n-uniformly spaced range- 
depth pales; sound speed profiles (possibly generated by DTSTOV); program control parameters 
and data identification numbers. Output: A magnetic tape (coefficient tape) contain4.n^ 
"corrected and extended sound speed profiles and their first and second derivatives and bottom- 
topography^ a printer listing and printer plots of input and output profiles. ' 

CTOUR generates three-dimensional isometric^ and contour plots of the sound speed fields. The 
program interpolates value of sound speed at each point usin&- a combination of ctfblc spline 
and linear interpolation scl)emes, then calls contouring and isoipetric plotting routines. 
Input: 'Magnetic (coefficient) tape generated by VFC; contour levels, control parameters, and 
grid specifications. Output: A OalComp contour and three-dimensional isometric plot of the • 
sound speed field; a printer listing o£ contour levels and values of sound speed at grid ■ - 
intersections. 



PiiFPLT generates CalComp plots of sound' speed profiles. The vertical gradients and curvatures 
corresponding to a profile are plotted on the same graph as its sound speeds. A cubic spline 
interpolation sctl&ne is used. Input: Magnetic (coefficient) tape generated by VFC, program 
control and data identification numbers on cards. Output: CalComp plots showing Itipltt data 
points and* Effect of interpolation in depth. \ 



SERB^NT traces rays throu^ a two-dimensional range ^nd depth dependent sound speed field 
bounded by a flat surface and variable bottom topography; calculates random, coherent, and. 
statistical intensities for multiple receivers at user-selected ranges and depths. An iter- 
ative ray tracing' scheme is used based upon expansion of ray depth, range, and sine in terms 
^of an increment of ray a?^ length. Iteration step 'size depends upon sound speed field in 
rays' vicinity. Input: Coefficient tape from VFC and cards containing source information, 
receiver information, surface information, output requests, parameters governing ray iteration, 
run rdentif ication information, and bottom loss data. Output: A magnetic tape containing ray 
statistics, (optional) , a magnetic'tape containing transmission loss information (opti&nal) ,_*a 
printer listing of ray information; transmission loss' information, etc. ' " 
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RAPLOT generates CalComp ray plots (ray depth vs, range from ray source). Input: The ray * 
8t;atia|lCB plot generated by SERPENT, control parameters on cards which select the number of 
plots to be generated, the rays to be displayed on each plot, the plot size, scaling parame- 
ters, etc. Output: Labeled CalComp plots showing rays and bottom profile and a printer list- 
ing of Input and control parameters. 

LOSSFLOT generates CalComp plots of transmission loss vs, range. Calculated and experimental 
values of transmission loss may be displayed on the same plot. Input: Transmission loss tape 
geneiJated by SERPENT; control parameters and graph titles on cards; experimental measurements 
or^ theOTOtical values of transmission loss on cards. Output: Labeled Calccmp plots of trans- 
mission loss vs, range. If requested, plots will display random, coherent, and statistical 
losses together with input experin^ental data or theoretical curves,^' 

"6BASS: A Digital Computer Ray Tracing and Transmission Loss Prediction System, Vol. 1 - 
Over-all description," NRL Report 7621, Dec. 1973;", . .Vol. 2 - User's Manual," NRL Report 
7642, Dec, 1973, ^ ' 

John J. Cornyn, Jr, Available from originator only 

Naval Research Laboratory 
Code 5493C ' 

Washington, DC . 20375 Telephone (202) 767-3585 

* 4 

\ 

Sonar in Refractive Water ' Language - FORTRAN IV , 

Hardware - UNIVAC 1108/ 30K words 

Traces sound rays, computes reverberation, computes acquisition laminae (vertical plane), in a 
linear gradient or continuous gradient medium. Output: Tape to be used by program RAY SORT. 
NUC Technical Fuljlication No. 164, "Digital Computer Programs for. Analyzing Acoustic Search 
Performance in Refractive Waters," by Philip Marsh and A,B, Poynter, Dec, 1969, two volumes, 
NUC Programs 800000 and 800001. See also NEWFIT and Patt^ Function Calculation8\ which pre- 
pare l^ut for this program. 

Naval Uridersea Center - Available from NTIS, Order Nos, AD 863 777 and 

^Pasadena Laboratory AD 863 778, $6,00 each volume in paper, 

3202 E. Foothill Blvd. $2,25 each volume in microfiche, 
. Pasadena, OA 91107 

« 

♦ * ' 

Sortrf Sound Ray Data ' . . ' ^ Ungudge - FORTRAN IV • . 

" RAY SORT Hardware - UNIVAC 1108/21K (450 instructions) 

A , " T . . 

Sorts certain sound ray data (from tape written by the "Sonar in Refrajctive Water" program) by 
depth, initial ray angle, and depth-intersection number. (See reference for above program} 

' Naval Undersea Center • Available from NTIS: See "Sonar in Refractive 

Pasadena Laboratory i Water,** * 

• 3202 E. Foothill Blvd, " , 

Pasadena', OA 91107 < 



Acoustic Ray •Tracing " Unguage FORTRAN II / . 

Hardware - IBM 7090 

Calculates underwater sound propagation. Program requires input. which describes the source, 
the field, the surface, and the bottom. Output is a report on magnetic ^tape which gives ray 
path, slope, curvature, and length. Also 'given are reflection and extreme etatistics, travel 
time, wave front curvature', and intensity; Technical Report No, 1470764, 

Trident/ASW Library ^ v ' Available from 'NTIS, Order No, AD 605 328, 
Arthur D, Little, Inc/ " $4.75^paper, $2, 25 microfiche, 

35 Acorn Park 

Cambridge, MA b2140 . ^ « 
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Ray^Tracing 



Langtiage 
Hardware 



■ .F9RTRAN/Klerer^y USER language 



A series of 19 programs for tlie calculation .of the acoustical field in long-range (several hun- 
dred to several thousand miJ^es), low-frequency undem^ter sound propagation in the deep ocean. 
Involves the calculation of ray trajectories, and intensity calculations that are based on the 
napplng'of ray densities into, the far- acoustical field. Input from NODC data tapes or from 
Fleet Numerical Weather Cent/al cards. Technical Report 150, "The Hudson ^Laboratories Ray 
Trading Program," by H. Davis, H. Fleming, W.A. Hardy, R. Miningham, and S. Rosenbaum, June 
195$» "Reference Manual," by M. Klerer and J. May, Hudson Laboratories, ilevised July 1965; 



Sual reprinted inr above relp&rt. 

The Hudson Laboratories of 

Columbia- University 
145 Palisade Street 
D9bbs Ferry, NY 10522 * 



Available from NTIS: Order No. AD 678 759,' 
$10.00 paper, $2. 25- microfiche. 



RAYTRACE 



Language - FORTjlAN IV 

Hardware - XDS Sigma 7/CalComp plotter 



RAYTRACE is a strai^ghtf orward , easy-to-use acoustic ray tracing program which produces a plot 
and a lasting* The. user specifies a single-valued velocity profile, source depth, maximimi 
range, a range Increment at which points are computed and the length of the plot axes in 
Inches. All axis scaling and labeling is done automatically. The discrete velocity profile 
supplied is smoothed by linear interpolation. Rays are constructed as arcs of circles between 
profile depths. At surface and bottom rays are reflected according to- the equal angle law. 
Any number of raya with different initial angles measured from, the horizontal may be plotted. 
In addition to the plot output, RAYTRACE produces the following printed output for each ray at 
integral multiples of the specified range increment: (1) range; ^(2) 4epth of ray at that 
range; (3) riagle of the tangent to the ray at that range measured from the horizontal; 
(4) total travel tiine from the source to that range along the rayi (5> ^total. distance f rp^he 
source to that range along ray path. Whenever a vertex occurs on a ray, the range is set 
to that of the vertex, an output point is computed, and incrementing of output range continues 
from that of the vertex. Originally written by C. Olmstead, the'^program has been modified by 
Bcrgstrom, 'Flnlo, M. Jon'es, and K..C. Spindel. 

ff 

Woods Hole Oceanographic Iiistitu- . Copy on file at NODC (lifting, documentation) 

tion , • ' * 

Woods Hole, MA 02543 , ^ 
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ERIC 



NAVIGATION AND CHARTING 



.5 



Language 
Hardware 



FORTRAN IV 

IBM 360-65/CalComp, Houston Omni- 
graphic, or Gerber plotter /2 tape 
units 



Plots Maps', Grid§^ Tracks 
MAP •/ . - . ^..^ ' 

.Generates a plot tape to draw a map according to the user's specifications of latitude and lon- 
gitude, Rrojection, kiad of grid, and size-of map. Projection options: Hercator, Miller, 
•square,' cylindrical stereographic, Lambert equal-area cylindrical, ' sinusoidal eqUal-area, flat- 
polar sinusoidal equal-area, Mollweide homolographic , and Lambert Conic ConformaO.* 



< 



Grid lines 



and coast^lraines are drawn at the user's option; if coastal lines are plotted, a land mass , 
data tapes' needed. There is an entry which returns (x, y) plotter coordinates for latitude 
and longitude of a point, enabling the user to plot station positions, ship's track, etc. 



M^a 



Ruth McMath 
Department of Oceanography 
Texas A&M University 
College Station, TX 77843 



Available from originator only 



Telephone (713) NaA5-7432 



Astronomic Position, Azimuth hfethod 



Language - FORTRAN IV (H ot G) 
Hardware - IBM 360-65/38K bytes 



""^irifulates the latitude and longit?iide of an astronomic observation station, given measured hori- 
zontal angles between stars and fiied mark ^long with observation times. A 'set of observation' 
equations is solved by the method of least squares to obtain corrections to assumed values of 
latitude, longitude, and the azimuth of the reference mark, as well as probable errors for 
these three quantities. The adjustment is iterated five times or unCil the corrections ^ecome 
less than 0.005 seconds, either of which causes a prograip halt. Output: A table of input in- 
formation and a record of the process of refinement for each set of station data read in. A 
previous version of this program was written in ALGOL fo? the Burroughs 220, in single preci- 
sion. Author - Spencer Roedder. 



Computer Center Division 
U.S. Geological Survey 
National Center 
Reston, VA 22092 



Copy on file at NODC (deck, documentation) 



Telephone (703) 860-7106 



SatelH'te Rise ant Set Times 
ALERT, ASORT 



anguag€f 
« Hardware 



FbRTRAN IV ' 

IBM 1130/5836 words (ALERT) , 12040 
words (ASORT) 



Calculates the rise and spt times and time of closest approach of satellites* Output: Listing 
of ALERT information and punched cards for next program, ASORT sorts the' output of rise times 
of satellites from program ALERT into chronological order. A listing is printed on the IBM 
^1131 FRB Manuscript Report No. 1071, by C.A. Collins, R.L.K. Tripe, an^i S.K* Wong, Dec. 1969. 



Pacific Biological Station 
Fisheries Research Board of Canada 
P. 0. Box 100 
Nanaimo, B. C. - V9R SKB 



satellite Navigation 



Copy on file at NODC ('listing, documentation) 



Language - FORTRAN/Assembler 
^ Hardware - IBM 1800 



A set of programs'for various aspects of sattellite navigation. The programs ^11 naturally 
into-two sections: those involved in the on-line ^eduction of data from the satellite, and 
those involved in the analysis, both on-line^ and off-line. NIG Report N. 20, Aug. 1969. 
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National Institute of 'Oce^^graPhy Copy on file at NODC (listing/ documentation^ 
Wormley, Godalming, Surre^^^^fii^land ^ 

Loran/Decca-Coordinates Calculation ^ ^ Language - FORTRAN IV ' 

HNAV • ^ . ' ' , Hardware - IBM* 1800 " - ' \ 

Given a Decca, Loran-A, or Loran-C fix, calculates the latitude aiid longitude. The method lE-or 
a hyperbolic system with separate master is used for all cases. The constants for the hyper- 
boloJ,ds are calculated in meters for both Lor an and Decca, thus allowing a fix to be calculated 
if one Loran reading and one De'cca reading are known. NIO Program No. 165. ,Uses SDANO and 
other subroutines. Author - M. Fasham. 

National Institute of Oceanography Copy on file at n6dC (listing, documentation) 
Wormley, Godalming, Surtey, England - . 



Loran/pecca File Initialization Language - FORTRAN IV 

HNVl Hardware IBM 1800 

Given input data on a master-slave pair, HNVl calculates certain geodetic Values and stores 
them on a tape file for later u^e by program HNAV^ NIO Program No. 164. Author - M. Fasham. 

.National Institute of Oceanography Copy ^ on file at NODC (listing, documentation) 
Wormley, Godalming, Surrey, England 



Geodetic Distance and Azimuth Language - FORTRAN IV 

SDANO ^ Hardwarj^ - IBM 1800 

Given the geographical coordinates of two points, tills subroutine calculates the geodetic dis- 
tance and azimuths between thern^. Based on the^fiiethod of E.S. ^odano for a non-iterative solu- 
tion of the inversd and direct geodetic probl^s. NIO Program No. 46. Author - M. Fasham. 

^* 

National Institute of Oceanography Copy on file at NODC (listijig, documentation) 
Wormley, Godalming, Surrey, Ehgland 



General Map Projection * , Language - MAD 

Hardware - IBM 7090/Cali:omp 763 plotter 

Conversion or generation of latitude and longitude values to map projection coordinates. In- 
cludes ali commonly employed projections of sphere. Oblique cases may be automatically ob- 
tained. Author - W.R. Tobler. 

Department of Geography Copy on file at NODC (listit\g,^ documentation) 

University of Michigan ' ' 
Ann Arbor, MI 48104 ' ^ " ^ 



Finite Map Projection Distortions* Language - MAD \ 

I Hardware - IBM 7090 

j ' ■ ' 

Programs and subroutines to estimate the errors introduced by the subsCitution of map projec- 
tion cpordinates for spherical coordinates. Statistical computations of finite distortion are 
related to Tissot*s indicatrix as a general contribution to th£ analysis of map -projections . 
Technical Report No. 3, "Geographical Coordinate Computat ion sy Part II," by W.R. Tobler, Dec. 
1964. ^ ' ' 

) 
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iDepartme^t of Geography Copy on file at NODC (above report) 

The University of Michigan f 
Aju^^bor, MI 48104 

Plots MercQtor^id • »Unguage - FORTRAN 

Qj^X \^ - Hardware - IBM 1800/16K words/Plotter 

Produces MercatorNgrid on 30-inch drum or |latbed plotter, with 'various scale and tick mark 
options. Input: /C^d defining upper right coordinate of chart, 

* / ? ' ^ ' 

Mlcha^L Moore > Available from originator only 

sVripps Institution of Oceanography 

,P.O, B6X 1529 , . ^ : 

La Jolla, CA, 92037 Telephone (714) 452-4194 , 



Navigational Satellite Passes Language - FORTRAN 

ALRTX ^ M' Hardware - IBM 1800/16K words 

Given satellite orbital parameters and st^ion description cards, produces listing of satellite 
* passes to occur for. a given area and time, \ . « 

\ Michael Moore » Available from originator only 

1 Scripps Institution of Oceanography r 

^ P,0. Box 1529 t 

• La Jolla, CA- 92037 Telephone (714) 452-4194 




Loran or Omega Conversion " Language - FORTRAN;IV ' ' - 

QgpOS ' Hardware - HP 2 lOOS /Keyboard /Paper tape, reader 

Converts Loran-C or Omega information from line-of-position reading to geographic coordinates 
or geographic coordinates to line-of-positlon, using method described in Naval Oceanographic 
Office Informal Report NO, N-3-64 by A,C- Campbell, Input: Line-of-position readings, time, 
date, initialization parameters; designed to process^ EPSCO 4010 data logger paper tapes. Out- 
put: Listings of converted geographic coordinates a^d magnetic tape with same data in a formaf 
compatible with plotting program TMERC, ^ " 

• Chris Pollonl ' Available from originator only 

Voods Hole Oceanographic Institution 
, ' Woods Hole, MA 02543 Telephone (617) 548-1400 

Cr^iis^ Track ^ ' \ Language - FORTRAN IV 

XMERC Hatdware - HP 3100A/16K words /Keyboard /CalGomp 

. Plotter' c ' .f' • 

^Draws a Mercator chart and cruise track from navigation data- Data format is fixed, compatible 
with progr^Jtt GEPQS, Input: Geographic coordinates and time (normp^ly GMT). 

Chris 'Polloni Available from originator only 

* Woods Hole Oceanographic Institution 
, Woods Hole, MA * 0254^3 ^ Telephone (617) 548-1400 



Transformation of Spherical Cpordinates, Language "FORTRAN IV « 

ROTGUT * ' , Har|iware - XDS Sigma 7/5,500 words 

Performs various operations using transformation of spherical coordinates. Output: Rotation 
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-about a pole, transformation to the new coordinate system, weighted or unweighted mean pole 
computation using Fisher's distribution, rotation for closest approach and pole of best small- 
circle fit, ' . V ^ > * ' ^ 



Chrldtine Wooding Available fro H^fl glnator only 

Woods Hole Oceanographlc Institution 

Woods Hole, KA« 02543 Telephone (fell) 548-1400 



Sum Of iiiiiXA Rotations on a Sphere' Language- - FORTRAN IV ' 

SUl^T , Hafdware - XDS Sigma 7 ' ' 

Using coordinate transformation, calculates the sum of finite rotations on a sphere. Requires 
the latitude and* longitude of the pole of rotation, and amount of rotation for each set! Out- 
l^ut: Listing, of the* Input rotations plus the resultant rotation and Its tensor. 



Christine Wooding x Available from originator only 

Woods Hole Oceanographlc Institution - V 

Telephone (617) 548-1400 



ifoods Hole, HA 02543 



Loran Fix 
LRFIX 



Language - FORTRAN , 
Hardware" - IBff, 1800/16K words 



»^ Produces position fix ftom station position and reading^^ialrs cards. 



Michael Moore ^ 
^ ScrJ4>ps Institution of Oceanography 
P.O. Box 1529 
La Jolla, CA 92037 



,^arth Spherical Subroutines 
ESTCH, ESTC2, ESTPL 



Available from .originator only 



telephone (714) 452-4194 



Language - FORTRAN 
Hardware - IBM 1800 



ESTCH converts earth spherical to plotter coordinates. Input: Decimal latitude and longitude. 
Output: Chart position for a call FPJX)T <Ii. X, Y) . ESTC2 Converts earth spherical-to plotter 
coordinates with iilSidfe check. Input and output: Same as ESTCH. ESTPL converts eatth spher-^ 
leal to polar c^dlnates; not valid for over ^00 miles, or over, the poles. Input: Starting 
latitude and l^gitude, end latitude and longitude. Output: Distance (miles), angie (degrees) 
^ relative to true North (decimal units). 



Michael Moore 
^ Scripps Institution of Oceanography 
P.O. Box 1529 
La /Jolla, CA 92037 



Available from originator only 



Telephone (714) 452-4194 



Plan Course and Schedule 
CRUIS and Subroutines 



Language - FORTRAN 

Hardware - IBM 1800/16K words 



CRUIS is used to plan steaming apd station time and fuel^ consumption. Subroutines: SAILB cal- 
culates the distance between, two points by either great-circle sailing or Mercator sailing', 
whichever makes the most sense* SAILG calculates great-circle distance and cojjr&s: SAILM 
calculates rhumbline (Mercator) course and distance. » , 



Michael Moore 

Scripps Institution of Oceanography 

P.O. Box 1529 

La Jolla, CA 92037 



Available from originator only 



Teleplione (714) 452-4194 
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'^'Degree Conversions' - Language - FoIkXRAN 

DE6PR, DEMI " . * ' , Hardware - IBM 1800 - * ; * 

DEGFR converts integer degrees and re^l mii^utes to real degrees. DEMI converts decimal degrees 
to integer degressand decimal minutes. * ' « \ . 

Michael Moore , \ • Available from originator, only 

ScriRps. Infiftitution of Oceanography 
' P.O. Bbx 1529 ' , , \ . 

La Jolla, CA 92037 Telephone (71A) 45^-4^94 • 

Mercator Degrees V " Language FORTRAN 

DMRCT V - ^ ' Hardware - IBM 1800 (J, 

.From latitude , in ^egrees, gives Mercator projected latitude in degrees. Expansion (continu^ 

fraction) ±^7 degrees. - ^ \ ^ 

* « * < 

, Michael Moore Available from Originator only 

i Scripps Institution of Oceanograhy 
P.O. Box 1529 ' 
. ' , La Jolla, CA 92037 Telephone (71A) A52rA19A 

^ M^|gnetic' Field' Components Language - FORTRAN 

^rtpFI ^ ^ Hardware - IBM 1800 

Converts latitude (N+) , Longitude (E+) to colatitude -and east longitude. Input: Geoid lati- 
tude, longitude, date (years and^^cimals of a year). Output: Magnetic field (gammas), nort 
coiiq)onent and east Cb^onent of magnetic field, vertical component of magi^tic field. ^ 

Michael? Moore . Available from originator only 

Scripps Institution of Oceanography ^ 
P.O. Box ;i529' 

La Jolla, CA 92037 Telephone (7IA) A52-A19A ^ 



Annotated Track on Stereogra>hic Projection Language - FORTRAN 

ANNOT ^ Hardware - CDC 3600/^800 /CalComp Plotter 



Plot^ an annotated track (bathymetry or magnetics data) ^long a track (navigation) on a stereo 
graphic projection. ^ * • ^ 

* James V. Massingill " » Available from originator only 

Environmental^ciences Section C"**^ 

Naval Research Laboratory • ^ 
Washington, PC 20375^ Telephone (202) 767-202A' 

7 




Annotates Chart . \ • Language - Hi> FORTRAN IV under RTE ^ 

CORBT ■ , , \ Ha'rdware - HP 2100S/15K words " 

Reads pbsition and bathymetr^y information^ from a disk file "and annotates the depth on a Merca- 
tor chart ^t the position given. This is' a revision of the "bathymetry processing section of 
program OCEANO written by the NRL Propagation Branch. 

' . ' " ^ ^ ' % ^ 

Robert A. O'Brien, Jr.* * Available from originator only^ 

Shipboard 'Computing Group, Code 8003 

NaVal Research Laboratory^ . ' • - > # 

Washington, DC 20375 Tel^hdne' (202) 767-2387 
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^ Batbymetrlc or Magnetics 'Chart . . Language • TIP FORTRJIn IV under RTE 

PROPL ^ N : Hardware^ HP 2100S/10K words 

\ • ^ m 

.fcibts bathymetrlc or magnetic (data as a fur>ction of distance along track or dist 



_ ance on a Mer- 

t^^°^ chart. The data file (disk) , is read>and fhe tra9k length or chart distance is calculated 
f ♦The dependent, variifele is then plotted against ^his value. 



s : : . . . "/ 

Robert A. O'Brien, Jr. Available from originator only 

.\*» > Shipboard Compjiting Group, Code 8003 ' * 
^ f Naval ' Ressnrch Laboratory - •^^-< 

liashington, DC 20575 Telephone (202) 767-2387 ' 



Mercator Chart Digftizition Language HP FORTRAN under RTE 

^1^^™^ * Hardware - HP 2100S/8K locations/Disk/ \ 

* a * > ' . ' Summagraphic Digitizing Tablet "^^S^ 



4r 



The operator digitizes the Mercator chart position, which the program converts to latitude and 
longitude; the annotated data value is th^n entered, and position and value are written on the 
disk. Input: Information to define chart and the output of a digitizing tablet. 

Robert, A. ^O'Brien, Jr. <^ ^^Available from originator only 

^ .Shipboard Computing Group, Code 8003 
Naval Research Laboratory 

Washington, Dt 20375 /- Telephone (2^) 767-2387 

Bathymetric Chart Digitization L^D^age,^- HP FORTRAN IV under RTE 

*BTH / >>' . ' . Hai^ware^- HP 2100S/7200 locations/Disk/ 

^ Summagraphics digitizing tablet 

Produces a di«c file containing the digitized bathymetry values as a function of time; also 
messages to the operator. Jhe program has automatic procedures fbr redefining the origin when 
the chart Us shifted arid when the recording j.ns'trument changes phlse. Input: Control Informa- 
tion necessary to define a coordinate axis ahd values from a digitizing tablet* ^ 

Robert A. O'Brlea, Jr. ^^^.^ ^ Available from originator only 
^ Shipboard Camput;lng Group, Code 8003 / 4 

*^ , Naval Research Laboratory • 

Washington, DC 20375 Telephone (202) 767-2387 

Plots on Stereographic Chart y * ' Langu^e - HP FORTRAN IV under RTE \ 

ANN0T ^ ^ . ' Hardware ^ HP 2100S € ^ ' \ 

Reads a disk file containing bathymetry and bowl t ion, ^then annotates the depth information on 
a stereographic projection chart at the posi%iott given. Modification of Woods Hole program. 

Robert A. O'Brien, Jr. \ Available frpm originator only 

•'Shipboard Computing Group, Cpde 8003 " . - • 

Naval Research Laboratdry 

Washington, DC ,20375 ^ . Telephone (202) 767-2387 

• . ; 

Plots Navigation Data ^ , Language - HP FORTRAN IV under RTE 

, , " Hardware - HP 2100S/15K background words 

Reads disk file containing navigation data and plots positions on Mercator chart. This is a 
reyision of the navigation process^ in program OCEANO written by the NRL Propagation Branch. 

^ ' 0 
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Robert A, O'Bnlen, Jr, 
Shlpbo^d Computing 9Xoup» Code 8003' 
Naval ResearA laboratory 
WashlngtonT/fDC 20375 



Available- from originator only 



Telephone (202)' 767--2387 



Ba^Xine Acotistic* Tracking 



Unguage - W FORTRAN IV under RTE 
Hardware - HP 2100S- 



Real-time local navigation using a bottom d^tributed acoustic transponder system. Will navi 
gate the ship and a towed body. Input: Reai-timf data from the transponders, giving rai>ges, 
depth of towed body;^ also requires a sound speed profile'^nd location of the transponders 
put: Position of *ship and /or towed body; information is logged on magnetic tap^ 



Ou\- 



J, Dean Clamons » 
Shipboard Computing Group, Code 8003 
Naval Research Laboratory 
Washington, DC 20375 



Available from originator only 



Telephone (202)W67-2024 



FAA Plot Language - FORTRAN ^ . 

> Hardware - UNIVAC 1108/Contord Digital Plotter 

Acceptrs three card images and a sjjpplied set of FAA <tata cards as ^put. The output ia a mag- 
netic tape to drive the'E-51, E-103, E-108 toncord Digital Plotters ,^ using the echelon mode. 
The end product iS a film positive with a plus symbol for the position of the FAA plots. The 
Mercator, transverse Metcator, and I^ambert conigr conformal projection with two standard paral- 
lels are the three projections which can be used to plot program outputs. O.S, No. o5652. Au- 
thors - Ronald M. Bolton and/ J. Parrin«llo. 



Automated -Cartography Office, Available from originator 

Cofie NA ? ' ^ 
Defease Mapping Agency ' * ^ 

Hydrographic Center • ' ^ » ^ 

Washington, DC 20390 ' 



Distance and Azimuth Language - F^ORTRAN • • 

CIRAZD N.^ Hardware - UNIVAG ai08 

Finds the distancyand azimuth between two points on the earth's surface when the earth is as- 
sumed to be a sphere. If either pole is lised for the center point, the angle given is with 
respect tQ grid north. By use of trigonometric identities and absolute value functions, this 
program avoids many of the computational problems usually found in distance computation3 • O.S, 
No, 55690. Author"^ Barry Turrett. 

« Automated Cartography Office,! Available from originator only 

Code ^ ' ' . ' ^ ^ 

Defense Mapping Agency ' ' 

Hydrographic Center ^ ' 
Washington, DC 20390 " , 



Parametric Map — Language - FORTRAN II 

Hardware - UNIVAC 1108 



plotting ^ 



Generates any hyperbolic navigation system by us^ng parametric equSttbM. .ti^nerates 
coordinates for loran-A, loran-C, Omega, and Decca charts. Will proce^^all lattice lines that 
fall, within a specified geographic area. Can.be displayed on any of thet^lowing map projec- 
tions: Mercator, transverse Mercator, Lambert confonnal conJ,c, oblique Mferbator, polyconic. 
0,S, No, 53012, Authors - R,A, Bolton, R.M. Bolton. ^ 
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Automat^ed Cartography QJff ice,, Code Available from originator ^nly 

Defense Mapping^ Agenjb^ 
Hydrographic Center/ ^ 

Washington, DC ' 20390 ^ 



Loran to Geographic and 

Geographic to Loran Conversion 



Language - FORTRAN V 

Hardware - UNIVAC 1108/15K words 



putes a geographic fix, given two loran readings, or /:omputes the time difference reading at 
a gtven point for any two specified loran pairs. Uses Sodano inverse method. Informal Manii- 



{ 



script Report IMR No. N-3-64» 
Kay Fox 

Navigational Soience Division' 
Defense Mapping Agency 
s Hydrographic Center ( 
Washington, DC 20390 



Availably from originator only 



Telephone (301) 763-U84 



Loran Coordinate Computation 



Language - FOkTRAN^ 

Hardware - UNIVAC 1108/34K words 



Computes charting coordinates along lines of latitude or longitude for loran hyperbolas at 
specified Intervals. Uses Lambert's method of computing the geodesic and involves convergence 
by Iteration. Informal Manuscript Report IMR No. N-1-64. ' 



Kay/fox 

Navig'^tional Science Division 
Defense Mapping Agency 
Hydrographic Center . 
Washington, DC 20390 



Available from originator only 
t 



Telephone (301) 763-1184 



/ 



Loran Skywave Correctipn 



LangCage - FORTRAN 
Hardware - /15K words 



Conputes the loran-A or loran-C skywave corrections over a specill^d area. Uses Sodatro inverse 
msRiod. Inputi Station positions, spheroid parameters, propagation velocity, area of. coverage* 
Output: For Loran A, the nighttime skywave corrections from master, from slave, and from both; 
fo;r Loran C, the daytime corrections as well. ^ 



Kay Fox 

Navigational Science Division 
Defense Mapping Agency 
Hydrographic Center 
A Washington, DC 20390 



Available from originator only 



Telephone (301) 763-1184 



Individual Point Generator foV Map 
•T?roj'ections * 



''Language - FORTRAN II 
Hardware - IBM 7074 



Converts geographic positions .to. discrete points in rectangiilar coordinates on the following 
projections: Mercator ,-4i:ansverse Mercator, gnomonic, polar stereographic, azimuth^ equidis- 
tant, Lambert conformal conic (with ojie or two standard parallels), Lambert azimutjral equal 
area polar, Lambert equal area cylindrical. Miller, Albers equal-area conJLc, rectified skew , 
orthomorphiCi afid oblique Mercator. Cartographic data may be produced in either graphic or 
tabular form. No. 55646 main program (each of the 13 projection subroutines has its own 
open shop number). Authors - Ronald Bolton, Louis Rowen, Gregory Vega. Informal repott IR Nor 
69-23. 
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"Computer Programs and Subroi^tines for Automated Cartography" by J. Parrinello, March 1969. 

Available from originator only ' 
Telephone (301) 763-1449 



kta Systems Office 
U,S, Naval Oceanographic Office^ 
Washington, DC 20373 



Individual Point Generator for Distance Language - FORTRAN II ^ ' 'i^^ 

and Azimuth Computations - Hardware - IBM 7074 

Uses th'e geo4etic latitude anMrongitude of two' points to compute^ the distance ^nd azimuth from 
one point to the other. Results will be in tabular form with the distance in meters and the 
'azimuth and back, azimuth in degrees, ^minutes, and. seconds. OS No, 65616, Author - R.M, Bolton, 



Data Systems Office > 
,U.S, Naval Oceanographic Of'^ice 
Washington, DC 20373 



Available from originator only 
Telephone (301) 763-1449 - 



Geodetic Datum Conversion 



Language 
Hardware 



FORTRAN 
IBM 7074 



Transforms geodetic coordinates from one datura^ to another by utilizing a given shift (in terms 
of rectangular space coordinates) between the origins of two datums and applying this shift, 
togetj^er with differences in the spheroidal parameters, in formulas derived for this purpose, 
OS^No, 55305, Author -^Robert M. Willems. 

Data Systems Office 
U.S. Naval Oceanographic Office 
Washington, DC 20373 



Available from originator only 
Telephone *(301) 763-1449 ' 



Geodetic Datum Reduction 

4 



Language - FORTRAN 
Hardware - IBM 7074 



Reduces geodetic positions from one geodetic datum to another by use of the Vening Meinesz equa- 
tions* The preferred datums involved are European datum^ North American datum, and Tokyo datum 
OS No* 55301, Author - D.J. Findlay, 



Data Systems Office' 
U.S, Naval Oceanographic Office 
Washington, DC _20373 



Geodetic Position Computation and Plot 



.Available from origiiyitor only 
Telephone (301) 763-1449 



Language - FORTRAN 
Hardware - IBM 7074 



Computes geodetic positions at desired intervals along* incremental or miscellaneous azimuths. 
Option to plot or list. Plot uses the LAMB subroutine with two standard parallels, OS No, 
55321^ Author - Merle L. Nelson! An' informal report IR No, 69-35 lists this and additional 
programs and describes procedures for production of secondary phase correction charts and 
tables. These supplementary programs, written by Edwin Stephenson and Barbara Gray, are in 
7074 Autocoder or FORTRAN. ' ^ 



Data Systems Office 

U,S. Naval Oceanographic Office 

Washington, DC 20373 



"^Copy on file at NODC (Above report; includes 
listing) 
Telephone (301) 763-1449 



^ Astronomic Latitude 



Language 
"Hardware 



FORTRAN 
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Programs for determination of first*- order astronomic latitude by the Sterneck method and alaa 
by thp methocf-of "Polaris and South 5tar"; subroutines for the Balditii, the Garf inkel,j^nd tj^, 
U«S. Coadt and Geodetic Survey (now National Ocean Survey) ref ract^n ^models. I^folrmaB repott 
IR Na« 68^21, "Invest Igations in. Determining. Astronomic Latitudes amKXhe Computer Programs/*' 
by Larry Botquin, April 1968* " / ^ 



IT e ' M 



Systems^Office 
U«^«' Naval Oceanographic Office 
Washi^ngton, DC 20373 



\ 

Copy on file at NODC (Above report, j^ncJrudes 
listing) 

Telephone (301) 763-l^A9 \' 



\ 
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Sounding Plot , Language FORTRAN - 

' * ^ ^ , . Hardware - CDC 3100/IBM 707A/CalCctop plotter 

^ * . * t 

Accepts lorac, Xotdn^ or Raydist lane values, plots ship's tr^ck and soundings in,imi'mode« OS 
No'. 58419. Author - G.R. Bills. 



f 



Data Systems Office ^ 
U.S. Naval O.ceanographic Office 
Washington, DC' 20373 



Available from originator only 
Telephone (301) 763-1449 



Single Integration 



LaiTguagp - FORTRAN 
Hardware - IBM 7074. 



Equally spaced time series* data are Integrated once using Tick's method. The data must be sam- 
pled at a rate of at least twice the ^quist frequency. Informal report IM Na- ''66-36 » OS Nq,. 
66-^34;^^uthor - E.B.^Ross. | * 

Data Systems Office ^ Available from* originator o\l^ ^ » 

iJ.^S. Naval Oceanographic Office m 
Washington, DC 20373^ — • " Telepho|ie (301) 763-1449 ' . * 



Sodano Inverse 



Language - FORTRAN 
Hardware - CDC 3100 



Computes the normal section* length. /an(^ the forward and reverse azimuths of the geodesic between 
two points for which the geographic coordinates are known. This computation is useful in deter- 
mining azimuUi and distance between trlangulapion stations for which geographic positions have « 
^be.en determined but which are not connected by direct ob^s^ryation. OS No. 4326. Authors - 
cidrew ^Spbell; modified by C.E. fierce. - ^y^^ 




t)ata Systems- Of flee 
"U^S. Navla Oceanographic Office 
Washington, DC 4 20373 



Copy on file at NODC 



(Seek, docunffentatiodtX ^ 



Telephone (301) 763-1449. 



A^ts^ a\^ 



tate Plane Coordinate Traverse 



Language - FORTRAN IV . . _ 
Hardware - IB^^ 360-30/IBM 2311 disk/65K bftes 



X 



Computes a plane-coordinate traverse adjustment using condition equations and the method of 
least squares. ^ The normal equations are solved using the Cholesky method. The program will ad- 
just a network t^ith as many as 250 stations, 600 observed directions, 250 measured distances^ 
and 99 condition equations. It is limited tc^^either a Lamber or traverse Mercator projection. 
Corrections are supplied for the reduction of observed data to grid data and options are avail- 
able for various types of azimuth and position control. Documentation, **A Computer Program to 
Adjust a State Plane Coardihate Tra\^rse by the Method- of Least Squares" by Jeanne H. Holdahl 
and Dorothy Dubester, Sept.*1972. ' ' 
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Joaeph F. Dracup Copy on fi'l^ at NODC (Above report; includes 

National Geodetic Survey > NOAA/NOS listing) 
6O01 Executive Boulevard 

Rockvllle, MD 20852 Telephone (301) 496-8650 



Geodesy, Marine Surveying and Mapping, Language - FORTRAN IV 

Nautical and Aeronautical Charting Hardware - IBM 360-65 

NOS SCIENTIFIC SUBROUTINE SYSTEM 

The purpose of this system Is to make accessible the tools to accelerate and simplify solutions 
to various scientific problems encountered in the National Ocean Survey disciplines. The user 
may use the system in the development of his subroutine library. Several aspects were consid- 
ered in the design and organization of the subroutines so that this purpose could be accom- 
pli£|ned. The subroutines were designed so. the user need be concerned only with the input and 
output parameters, not with the internal design of the su'troutine. The reference to any sub- 
routine^ by the problem program is straightforward, thus minimizing user effort. The subrou- 
tines are purely computational in function and do not contain any reference to input or ^output 
operation. The problem program must be designed so that it contains whatever input /output op- 
erations are needed for the' solution of the^problem. Some routines are in double precision 
mode to optimize accuracy of the computations; the. problem program must be designed to meet i 
this requirement. Although the subroutines are FORTRAN IV progf ferns, there is no restriction 
on the symbolic programing language which may be used in the problem. The subroutines are 
uniformly documented and are accompanied by comment statements in sufficient detail to permit 
the user to gain familiarity with the techniques and method of use of the routine. Following 
are descriptions of individual subroutines:^' 

c 

ANGLE converts an angle expressed In^ seconds of arc to degrees, minutes, and seconds of arc. 
The angle^ which may be positive or negative, is partitioned into its divisions by successive 
approximations for each of the divisions. A table is then searched for adjusting the decimal 
seconds to the desired precision to be used in the user's callable routine. (894 bytes) 

ANLIS computes the long distance or geodetic distance and azimuths between two stations whose 
geodetic posit ions^ are known. Evaluation is based on equations of the Andoyer-Lambert method 
for solving the Inverse position problem. This method is valid for distances up to 6p00 miles. 
(5J512 bytes) 

AFCTN computes the state plane coordinates from geographic positions and the Inverse fQv sta- 
tions in zones 2 to 9 of the Alaska plane coordinate system. (^524 bytes) • 

APCWN computes the state plane coordinates from geographic positions and the Inverse for sta- 
tions in zone 1 of the Alaska plane coordinate system. (4^88 bytes) 

AFOLY computes the American polyconlc grid coordinates of a station from geographic positions 
and the Inverse. (4;520 bytes) 

CGSPC computes the geodetic position (latitude, longlt<:ide) and azimuth of an observed station 
fisxim a station of known geodetic position, with azimuth and dfistance to the observed station 
given. Evaluation is based on equations for the forward position computation and is valid for 
distances up to 600 miles. (2^06 bytes) ' . , 

CUBIC approximates a third-order curve , by interpolating coordinates between given points. The 
evaluation is based on a method which expresses a cubic curve by using two parametric equations 
^nd then choosing values for the parameters in the two equations. (lj?^^|^)ytes) 



EXCES computes the spherical excess of a spherical triangle as determined 'from two angles and a 
side opposite one of them. The method is valid f&r triangles whose sides are less than ^100 
miles in length.* (884 -bytes) 

GMLIC computes the geodetic distance and azimuths between two stations whose geodetic positions 
are known. Evaluation is based on equations -of the Gaubs ihidlatltude method for solving .the 
Inverse position problem. Thla method is valid for distances up to 600 miles. (2,452 bytes) 

HIFIX computes the hyperbolic coordinates of a ship expressed in HIFIX phase differences, from 
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geographic positions, and the inverse. Evaluation is based on Campbell's equations to deter- 
mine the geographic, position of ship from HIFIX phase differences. (5^62 bytes) 



LORAiJ computes the hyperbolic coordinates of ship expressed in loran time differences from geo- 
graphic posit ions » and the Inverse. The program is applicable to loran-A, loran-C, or a mix- 
ture of the two systems. Two configurations of fixed stations may be used. In the triad con- 
figuration, two pairs of fixed stations are used, each pair having one station, the master sta- 
tion, in common, and a slave station, in the tetrad configuration, two pairs of fixed stations 
a^e used, ea^h pair having a separate master station and a slave station. Evaluation is based 
on Campbell's equations. (6^444 bytes) << 

(M4EGA computes the hyperbolic coordinates of a ship expressed in Omega lane values from geo- 
graphic posit ions » and the inverse. Evaluation is based on a modification of Campbell's equa- 
tions. (5708 bytes) 

SODIN computes the geodetic distance and azimuths between two stations whose gjaodetic positions 
are known, using the Sodano method for solving the inverse position problem. This method is 
valid for dia^Jances up to 6,000 miles. (4J522 bytes) 

SODPH computeslthe geodetic position (latitude, longitude) and azimuth of an observed station 
f»om a station ?bf known geodetic position, with azimuth and distance to the observed station 
given. Evaluation -is based on equations of the Sodano method for solving the direct position 
problem. This problem is valid for distances up to 6,000 miles. (4^86 miles) 

TPFIX computes the geographic position, forward azimuth, back azimuth, and distance of ^ ob- 
serving station using angles observed at that station to three fixed stations whose geographic 
positions are loiown. The computations include the effect of spherical excess. Evaluation is 
based on, the method of resection to determine the position of an unknown station. (3^78 bytes) 

UTMCO computes the universal transverse Mercator (UTM) grid coordinates of a station from geo- 
graphic positions, and the inverse. 'Hiis routine is designed to*work for UTM zones 1 to 60, 
zone width 6 degrees, in both the Northern and Southern Hemispheres, within^ the latitude band 
of 80 degrees and 30 minutes north to 80 degrees and 30 minutes south, and 5 degrees and 45 
minutes plus or minus from the central mer-idian ,of the major UTM zone. (7^930 bytes) 

Milton Stein Copy on file at NODC (User's Guide; includes 

ADP Programing Branfch - listing) 

National Ocean Survey,.N0AA 

6001 Executive Boulevard 5 

Rockville, MD 20852 , Telephone (301) 496-8026 ' 

Computes Geographic Positions Language - SPS 

Hardware - IBM 1620 

Computes geographic positions, given starting p6sition, azimuth, and length on any one of six 
8pt>eroids. Three types of computations can be obtained: single positioner, a loop, or a tra- 
verse. Control is by job card. Length input may be in meters, feet, statute or nautical 
n^iles, or electronic lanes. USGS P^ograrp l^o. 15. 

ADP Programing Branch Copy on file at ^ODC (listing, documentation) 

National Ocean Survey, NOAA 

'6001 Executive Boulevard v 
Rockville, MD 20852 * * . 

LORAN C (Version 2) ' Language - SPS 

Hardware - IBM 1620/lOOK* 

Computes tables giving the points of intersection pf LORAN C hyperbolas with meridians and/or 
parallels of the earth spheroid i Microsecond values are computed at intervals varying from 
1 1/4 minutes to 20 minutes for any or all of four possible pairs of stations. Program can ^ 
also^be used to compute microsecond values at grid i'^^er sect ions. *Can be modified for use on 
IBM 1620 of 60K capacity. 
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ADP Programing Branch - Copy oh file at^NODC (listing, documentat;lon} 

National Ocean Sup^ey, NQAA 
6001 Executive Boulevard 
Aoclcvllle, m 20852 



'Compute Great-Circle Path Language - FORTRAN IV-(/ . ' 

GCIRC ^ . Hardware ^ IBM 360-65/1200 bytes ' 

' ^ ' 

Computes distance (nautical miles) and Initial course (degrees) of a great- circle path between 
two locations. Requires subroutines CV^' SIN,^ARC0S , Author - Ralp}^ Johnson, 

Oceonographlc Services Branch Copy on file at NODC 

National Oc>affLographlc Data Center 

NOAA/EDS 

Washington, pC 20235 Telephone (202) 634-7439 

^ ■ ' ■ . ^ 

Map Projections and Grids , Language - FORTRAN 

MAP ^ Hardware - IBM 360-40 /CalComp 763 plotter 

Provides wide variety of map projections and grids to facilitate the display of geographical 
data. The subroutine has been written in as modular a form as possible to allow for ease of 
insertion or deletion of routines. Provides the following projections: Kercat^or, Miller, 
square, cylindrical stereographic, Lambert equal-area cylindrical, flat-polar equal-area sinu- 
soidal, equal-area sinusoidal, Mollweide homolographic, polar stereographic, Lambert equal- 
area polar ,^^CoIligan*s equal-area projection of the sphere, azlmuthal equidistant, transversed 
sinusoidal, transversed Mollweide. Author - John 0. Ward. 

^ Oceanographic Services Branch Copy On file at NODC (tape, including land mass 

National Oceanographic Data Center data file; and documentation) 
.NOAA/EDS 

Washington, DC 20235 ' Telephone (202) 634-7439 



\ 
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GRAPHIC DISPLAY 



Vertical Bat Graphs Language - MASTER FORTRAN 

Hardware - CDC 3300/3A 17K words/CalComp 
' ' • • Plotter 

Reads and edlt^bar graph parameters and data; calls the CalComp software which generates a 
plot tape. The CalComp Plotter draws the graphs as vertical bars for any set of data which 
has less than 101 items. The program uses numeric data and bar graph descriptive *data as in- 
put, Major parameter categories are X access, Y access, titles, groups, and bar labels. File 
output is pro^ffi^ed dn CalComp continuous line plotter which draws individual ^rs; bars may 
have labels and may be sl^^ded; there are four different types of shading, 

James C. Cheap Available from originator only 

department of 'Water Resources 
Computer Systems DivislTon 
1416 Ninth Street 
Sacramento, CA 95814 



X-Y Plots. 
MUDPAK 



Language - FORTRAN 

Hardware'- CDC 360a/24K words/CalComp Plotter 



Generates plots of several dependent (y) variables vs. a common independent (x) variable. Nu- 
merous user options control type of plot, tftling, etc. Exhaustively plots all data from 
files, one plot per data set (data sets defined by change in key field Value). Input: Fronr 
1 to 10 card or tape £lles, xomprising 15 dependent variables, file definition cards, plot axis 
cards, title cards, Output : -^1- inch or 30-inch CalComp plots (uses standard CCPLOT routine) 
arid diagnostic- listing. 



Peter B. Woodbury 

Deep Sea Drilling Project 

Box 1529 

U Jolla, CA 92037 



Available from originator only 



Telephone (714) 452-3526 



Plotting Program 
PROFL 



Language - FORTRAN IV 
Computer - CDC 3,600 



Plots data values against depth or other parameters. 




d Wirth 
anic Research Division 
ipps Institution of Oceanography 
Box 109 
U Jolla, CA 92037 



Available from originator only 



Dendrograph 



V 



Language - FORTRAN, ASSEMBLER 

Hardw£(re - IBM 360 or 37p/45K for 360/CalComp 
Plotter and/or 132 character line 
print eiT / 



Draws a two-dimensional diagram depicting the mutual relationships among a group of objects 
whose pairvise similarities are given. Input: A distance or correlation type matrix. Out^put: 
Printet^and/or CalComp plot of the dendrograph. This program is a modification of a program^ 
by McCammon and Wenninger in Computer Contribution 48 <^ Kansas Geological Survey. The changes 
are dynamic storage allocation and pointer plots. The size of the input matrix is limited by 
the amount of xor^ available; core is dynamically allocated at execution time. 
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Dennis T, 0, Kam . 

Hawaii Institute of Geophysics 

Unlveralty of Hawaii at Manoa 

2525 Correa Road 

Honolulu, HI 96^22 



Available from qrlglnator only 

■ \ \ 

Telephone (808) 948-8952- 



Beach and Near shore Maps Language - FORTRAN IV 

HarHware - IBM 1130/8K words 

Topographic maps of the beach and near shore area are computed and plotted based on nine pro- 
flies from a baseline across the beach. Profiles are spaced at 100-*foot Intervals along the 
beach with survey points at five-foot Intervals along each profile. Linear interpolation is ^ 
made parallel to the baseline between adjacent profiles. "Numbers and symbols are printed* to 
form the maps. Prof ilea for a series of days are used to print jnaps of erosion and deposition 
by subtracting elevations for each day from the elevations for the previous day. ONR Tech, 
Report No, 4, "Beach and Nearshore Dynamics in Eastern Lake Michigan," by Davis and Fox, 1971, 

Williail^' f. Fox 1^ Available from originator only 
Williams College 

Department of Geology ♦ 
Wllliamstown, MA 01267 Telephone ^(413) 597-221 



X-Y Plots in a Flexible Format » Language - FORTRAN ^ 

MEDSPLOT Hardware - CDC CYBER 74/^OK octal Wqrds/ 

CalComp or Zeta Plotter 

General purpose program to produce x-y coordinate plots in a flexible format. Point and line 
plots are available in either a time-sharing (interactive) or batch mode. The prime objective 
of the program is to permit very flexible control over the plot si^ and labelling at run time 
through the use of control cards. Input': (1) Control cards with plot description, (2) any 
formatted BCD file with fixed length records containing one pair of x-y coordinates, on tape 

Jr disk. Output: x-y coordinate plot and summary listing. The x-y coordinatea are trans- 
erred directly from data. User-controlled range checks and multiple plota pan be obtained, 
based on the sort sequence of a control field in each data record, Hiis field will be in ad- 
dition to the data fields to be plotted. Can use either an of f-line^lComp Plotter, or an on,- 
line Zeta Plotter connected with a telephone line. ' • r ' ' 

D. Brcuich Available from originator on^y 
Marine Environmental Data Service 

580 Booth Stt'eet " • , 

Ottawa, Ont. KlA 0H3 Telephone (613) 995-2011 



Plota Hydro Cast Data Language - FORTRAN IV 

?LOG ^ - Hardware.- IBM 1130/ IBM 1627 plotter 

Plots the results of 'hydrographic casts in a format suitable for publication. Produced 8 1/2- 
by lO-inch plots of log (10) depth ^^s. temperature, aalinity, and oxygen. 

Pacific Biological Station Copy on file at NODC (documented listing) 

Fisheries Research Soard of Canada 

P. 0^ Box loo ^ . , 

Nanaimo, B. C. V9R 5K6 ^ . 

Plota STD Data Language - FORTRAN IV 

STPOl Hardware - IBM 1130/lBM 1627 plotter 

Plots digitized STD data in a format suitable for publication. The plotter draws and labels > 
axes and- plots temperature and salinity vs. depth. 



12 



117 



A 



Pacific Biological Station -j^ 
Fisher 1^ Research Board of Canada 
P. 0. 100 * ; 

Nanaimo, B. C. V9R ^6 



Copy on file at NODC (documented listing) 



Plots Temperature-Salinity 
PSALl 



Language - FORTRAN 
Hardware - .IBM 1130 



Plots T-S and expanded T-S curves. Another program, PSAL3, plots oxygen, salinity, and tempera- 
ture-oxygen curves. FRB Manuscript Report Nq. 1071, by C.A. Collins, R,L, Tripe, and S,K, Wong, 
Dec. 1969. * . 

Pacific Biological Station * Copy on file at NODC (PSALl only, documente'd 

Fisheries Research Board of Canada listing) 

P, 0, Box 100 ^ ^ 

Nanaimo/B. C. V9R 5K6 ^ J 



Section Plotting 



Language - FORTRAN 

Hardware - CDC 3100/PDP-8/CalComp Plotter 



The program uses the CDC 3100 plotting subroutines to generate data for the "PDP-S plotting pro- 
gram. The user may specify a legend (up to 480 characters) ,^ label sizes > scale factors, the 
parameter to be plotte'd, and the isopleths to be determined. The plotting is done on a Cal- 
Comp 31-inch plotter under control -of 'the PDP-8. Xruiae data is read from magnetic tape by the 
CDC 3100 in modified CODC (MEDS) format or Bedford Institute format. An iterative method is 
used in conjunctit>n with an interpolation function to determine isopleth depths. The interpo- 
lation function is described in a Bedford Institute report, BIO 66-3 (unpublished manuscript) 
by R.F, Reiniger and C.K. Ross, Feb. 1966. 



Director 

Bedford Institute of Oceanography 
P. 0. Box 1006 
Dartinouth, N. ^. B2^ 4A2 



Available from originator only 



Horizontal Histograms Language - FORTRAN JV-H 

gpSTO ^ Hardware * XDS Sigma 7 

Produces horizontal bar histograms on a line printer for any Variable on magnetic tape in a 
standard WHOI format. Format described in a technical report, Ref. No, 69-55, "A Nine Channel 
Digital Magnetic Tape for Storing Oceanographic Data," by John A. Maltais, July 1969, 

Richard E. Payne * - , Available from originator only * 

Woods Hole Oceanographic Institution 

Woods Hole, MA 02543 ^^elephone (617) 548-1400 



Printer Plots • Language - FORTRAN IV-H 4 

LISPLO ' Hardware - XDS Sigma 7 

Lists and plots the data stored on WHOI format magnetic tape. See HISTO format reference. 
Output is^on the line printer. Three types of plot are possible: (1) Variable vs. time or 
• sequence' number, (2) angle and speed vs. time, and (3) two variables (one on a minus and one 
ott a plus scale) .vs. time* 

Richard E, Payne Available from originator only 

> -.-1,,, Woods Hole Oceanographic Institution 

,^ ' Woods Hole, MA 02543 Telephone (617) 548-1400 ' ; 
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Plot of Frequency Distribution ' . • Language - FORTRAN IV-H 

JHISTO ' Y ' Hardware - XDS Sigma 2 

' ^ P):oduce» a* two-dimensional frequency distribution of sampiys averaged over chosen interval 

ajai^st 'time. Input: Control cayds andttata on 9- track t/ape. Output: A line printer plot of 
. ^ averaged' compass, v^ne, direction, and speed against tlm^ 



Richard £• Payne Available frfim originato^ only 

Woods Hole Oceanographic Institution 

Woods Hole, MA 025A3 Telephone (617) 548-1500 



Velocity Victor Averages . Language - FORTRAN IV-H 

VECTIAV a . , Hardware - XDS Sigma 7 

Produces a 9-track tape in WHOI format of east and north^velocity vector averages and theit 

corresponding polar representations. (See HISTO format ^^eference^ ' ^•^-^ 

^ ' , « 

' Richard E; Payne ' r , Available from originator only ^ 

' ^ Woods Hple Oceanographic Institution 

Woods fiole, MA 025A3 Telephone (617) 548-1400 

• ' . ■ . ■ r, ■ ■ ■ 

Progressive Vectors Language - FORTRAN IV-H 

PROVEC , Hardware - XDS Sigma 7/PDP-5 dfiven CalComp 

Plotter optional 

Computes progressive vectors from direction and speed values. Input: Control cards and tape 
in WHOI format. See HISTO format refet^ence. Output: Listing of progressive vectors and/or 
a tape .to be used with a PDP-5 driven C^lComp for a plot of the vectors, 

Richard E. Payne Available from originator only ' 

^ Woods Hole Oceanographic Institution 

Woods Hole, ^ 02543 - Telephone (617) 548-1400 ' • 
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Plots Data Along Track 
TRACK 



Language - FORTRAN IV 

Hardware - XDS Sigma 7/2986 32 bit words*/ 
CalComp or Vers a tec plotter 



Plots data in profile alon^'a ship's track. Map is in Mercator projection. The ship's heading 
is used to determine the ox;^entadion of the data. Standard CalComp software is used. Input 
data .can be ^n any WHOI format or in a user ^specified format and can be from any device, but 
typically from a nine-track magnetic tape; also input are run-time parameters to specify scales 
and other options. *AnotHer version of the program exists for the Hewlett-Packard minicomputer 



and works in a 16K word environment. 



Robert C. Groman 



Woods Hole Oceanographic Institution 
Woods Hole, HA 02543 



Available from originator < only 
Telephone (617) 548-1400, ext. 4^69 



Profile versus^Time or Distance 
PROFILE I 



Language - FORTRAN IV 

Hardware - XDS Sigma 7/4010 32 bit words*/ 
CalComp or Versatec plotter 



Plots in profile versus time or cumulative distance, all WHOI standard formats or a yser-stip- 
pdied format. Uses standard CalComp software. Input: Data'^from any device and run-time pa- 
rameters to specify scales and other options. "^Output: Plot tape for offline use and printed 
information about the run. *Another version of this program exists for ^he Hewlett-Packard 
minicomputer and works in a 16K word environment. 



129 



Robert C. Groman ^ Available from originator only ' * 

U^ds Hole Oceanographic Institution | 
Woods Hole, MA 02543 , , Telephone (617) 5^8-1400, ext. 469 ^ * 



Idiots Navigation with Any Other Data Type ^Language- - FORTRAN IV 

DEEP6 . * Hardware - Hewlett-Packard minicomputer/ 

16K 16 bit words/CalComp plotter 

Merges and plots x-y navigation with another data type. For each data point a linearly inter/d 
polat^ed position is calculated. Plots can be annotated x-y charts, data profiles along the 
ship's track, or profiles vs, time or distance. Input i x-y navigation data in meters or fath- 
oms; a tipe series of data to be merged with the navigation; and input parameters specifying 
scales and options « » 

Robert Groman « Available from originator only 

Woods Hole Oceanographic Institution * 

Woods Hole, MA 02543 Telephone (617) 548-1400, ext,>469. 7^ 
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Line Printer Plots . Language - FORTRAN, C0MPAS5 

GRAPH2 Hardware - CDC 3800/4112 octal (2122 decimal) 

locations* 

* » 

This subroutine is intended to be valuable for scientists who want a fast and economical 
method of producing plots of their data but do nOt require the high resolution (100 points per 
inch) of the CalComp^lotter . Modified by Dianna^ L, Denton from a program written at the Uni- 
versity of Wisconsin. NRL Memorandum report 2046 (NRK Computer Bulletin 12), Aug. 1969. 
(*excluding the common block (11031 octal - 4633 decimal) and system library routines). 

'/ 

Research Computation Center Copy on file* at NODC (tape, above report) 

Naval Research Laboratory 
^ * * Washington, DC 20375 



Magnetic Signatures , Language - FORTRAN 

MAGPLOT Hardware - CDC 3600/CDC 3800/706,768 words/On- 

line plotter 

Separates and characterizes the various components of magnetic noise in inagnetometer records 
taken ^om a sensor towed at sea. Gives a print^t of histogram data for each of three wave- 
length filters: N(amplitude) vs. am^plitude; N (wavelength) vs. wavelength. Also produces 
plots of filtered magnetic fields as function of distance. Program is briefly described in* 
NRL Formal Report^ No. 7760, "Geological and Geomagnetic Background Noise in Two Areas of the 
North Atlantic." ' ^ . 

P^rry B. Alers Available from originator only 

Naval Research Laboratory 

Washington, DC • 20375 Telephone (202) 767-2530 

• » 

Sequential Plotting Language - FORTRAN 

Hardware - IBM 360-65 
" t 
Subroutines produce plots- using a digital computer output printer. The consecutive x, y data 
points are plotted with symbols consisting of letters and numerals. Permits rapid plotting of 
either a single- or a multivalued curve when -high resolution is nqt required. NELQ Report 1613 
by R.G. Rock, March 1969. 

Naval Electronics Laboratory Center 'Copy on file at NODC (documented listing) 
San Diego, CA 92152 / 
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Hachlne Plotting on Mercatxjr Projection 



Language - FORTRAN 63 
Hardware - CDC 1604/CalComp 165 plotter 



Utilizes meridional parts to locate data points on Mercator-projec^lon maps^ using a shared- 
time plotting routine. The conftlq^nt outlines can also be plotted by stralght-llne segments. 
NUWC Report TP-8!? by L.A. Smothers?. Dec. 1968. Final version of program written by K*K. Starr. 



Ocean Sciences Department 
Naval Undersea Research and 

Development Center 
San Diego, CA 92132 



Copy on file at NODC (above report) 



Overlay Plotting 
OVLPLT 



,Language>- FORTRAN . 
Hardware - UNIVAC 1108/12K plotter compatible 
with Integrated Graphics sjlstem 



Performs overlay plots on the FR-80 graphic system using the Integrated Graphics System, ^o 
knowledge of IGS required by userT Fitting of data Into bounds of "good looking" graph. 



Peter D» Her stein 
Naval Underwater Systems Center 
•New London, CT 06320 



Available from orlglnatorj only 
Telepljone (203) 442-0771, ext. 2305 



Physical Dat'a Plot 
FRAME 



Language 
Hardware 



FORTRAN 
CDC 3300. 



Using arrays of profile data and specification parameters 
the UCC plotter to provide a profile plot of -depth -^^s. t 
slgma-t, and soimd speed. ^ ^ 



K. Crocker . 

Naval Underwater ^stems Center 

Newport, RI 02840 



s 

# 



his subroutin^e prepares a tape for 
erature, conductivity, salinity. 



Available from originator only 
Telephone (401) 841-3307 



Reformats Data, Plots Track Chart 
MASTRACK 



'Language - FORTRAN V 

.Hardware - UNIVAC 1108/instructlons 5K words/ 
Data 5K words/2K Plotter buffer/ 
3 tapf unlts/CalComp Plotter 



'BeoodeQ blocked BCD data tapes In NGSDC format Into UNIVAC SDF format and plots user-scaled 
H^rcator track charts /annotated with any and all underway parameters. Author - Peter J. Topoly. 



Data Systems Office 
*U»S. Naval Oceanographlc Office 
«5 Washington, DC 20373 



Available. from originator only 
Telephone (-202) 763-1449 



Produce Contour Charts 

GRIDIT, REGRIDlTj AUTC»IATED CONTOUR 



"Language - FORTRAN \ 
Hardware - 



Three programs which enable the user to graphically produce a contour chart by the computer- 
plotter method. GRIDIT produces a digitized matrix, from data points 'which have been screened,, 
for gross errors. REGRIDIT produces a digitized matrix from raw unchecked data points. AUTO- 
MATED CONJOUR constructs a contour chart from a digitized matrix.^ An example Is given for use 
oX the program In contouring the bathymetry of the ocean bottom. Informal manuscript repolrt 
IM No.' 67-4, '*An Automated Procedure for Producing Contour Charts," by Roger T. Osbom, Feb. 
.1967. * ' ' . 
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Data Systems Office 

U,S, Naval OceanograjH^lc 6fflce 

Washington, DC 20373 N-'^ 



Copy on file at NODC. (Above, report ; Includes 

listing) , " ^ 

Telephone. (3Cyi) 763-1449 



Profile Plots," Time Axis 
PROFU . V 



Unguage - FORTRAN IV * 

Hardware - IBM 360 - 67/llOK byteS^ for 1500 
values l^er prof il«/Plotter 



'1 . « 

Makes profile pldts* of up to three value^ along a time axis. Uses Benson-Lehrner plotter or 
^asy^<;onverslon to Cal|[^OQip« Input: /^ards with specif ic.ations for profiles (scale^, values, 
titles^ symbols, etc.) and foinnats, and data cards with Julian l)Our, minute, and one to 

three values. " > 



Gradtg McHendrie 
Off Jce of Marine Geology 
U.S. Geological Survey * 
345 Mlddlef ield ^ad ' 
Menlo P^rkl CA S^025 



Profile* Plots, Distance Axis 
PFLDST 



Available from originator only 



Telephone (415)' 323-8111', ext. 2174 



Unguage - FORTRAN IV ' 
Hardware - IBM 360-67/130K bytes for 1500 
' values per proflJ^e/plotter 



y 

Produces profile plots of up to three values. along accumulative distance axis. Uses Benson- 
Le^nier plotter or easy conversion to CalComp. Input: Cards witli specifications for each, 
profile (scale, values, symbols, title, etc.) and formats, and data cards with Julian day, 
hour, minute, latitude, longitude, and one to three values. 



Graig McHendrie 
OfHce of Marine Geology 
U.S. Geological Survey 
"345 Middle^ield Road 
•Menlo Park^ CA 94025 



Available from originator only 
* Telephone (415) 323-8111, ext. 2174 



Map Plots 
MAPPLT - 



Language, - 
xiiardware ■ 



FORTRAN IV ' 

IBM 360-67/244K bytes for^500 nav. 
or 6000 data points/Plotter 



Makes map plots of eitftejr data values or navigation data on* a Mercayor, transverse Mercator, 
conicV or Lambert con formal, projection. Maximum map size is 28 x ^ inches. Assumes equato- 
rial radius of earCh*ls 251,117,000 inches ahd that west longitude kmi south* latitude are input 
as negative values. ^-Uses Benson-Lehrner plotter or easy conversion to CalConSp. Input :"" Eleven 
cards with title, foniats, and map windoy specifications followed Jfy data .on eithe^cards or 
^ape. Navigati9j} data: Julian day, hour, minute ,^ latitude, longij^ude. Data valued: minute * 
(or sequence no.) valuBk^ latitude, longitude'. ^ ^ ^ 

Graig .McHendrie ' ^ Available from orlginat.or only 

Office of Marine Geology 
tJ.S. Geological Survey y* . ' 

345 Miidlefield Road ^ \ / 

Menlo Park, CA 94025 " " Telephone (415)^ 323-8111, ext. 2174 
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Plots Scattergram 
SC3:GM4 and SCTGM5 



Unguage - FORTRAN IV 
Hardware - IBM 360-65 



These subroutines plot a simple scattergram from a set*Qf data p^iirs. The data are first ad- 
justed to fit in a range of 1 to 100, then rounded, and the stattergram is generated by 

* ' ' « . 0 
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subtracting %hA origin from each data point and then fixing, or truncating, the number to yield 
a set oi subtler £pt pairs. The location for ea^h subscript pair In the black array Is filled 
with the number of occurrences and finally a plot Is produced. These routines Ignore out of^ 
bound polntsL 

Paul Sabol \ * Available from originator only 

inter for ^perlment Design and 
[Data Analysis, NOAA/EDS 

ishlngton, DC 20235 Telephone (202) 634-7344 



^ X-Y Plots 
EBTPLT 



Language - FORTRAN IV 

Hardware - CDC 6600/FR80 Precision Microfilm 
Recorder 



A generalized x-y plot package, , Allows various manipulations of axes as well as special char- 
acter plotting, . 



Robert Dennis 

Center for Experiment Design and 

Data Analysis, NQAA/EDS 
Washington, DC 20235 



Available from originator only 
•^Telephone (202) 634-7340 



Iplays VHKR Satellite Data 
5DMD 



Language - FORTRAN 

Hardware - CDC 6600/54K words/Digital Mulrhead 
Dlsplayer/NESS dlsplayel: run by 
CDC 924 



DlsplA^s VHRR data from the Ingest tape on the Digital Mulrhead Dlsplayer (DMD) In ^000 mode 
(^OOCJ picture elements per scan llne;"5p00 maximum scan lines per picture). The program uses 
a tw^ spot running mean of 5^000 spots of a possibly 6^472 along each scan made by the VHRR In- 
stru/nent. It converts each averaged spot via lookup table to a display grayscale. The start- 
ing /Scan line, the number of scan lines to be processed, the starting spot, and the grayscale 
lookup, table are controlled by data c^rds. 



John A, Prltchatd, 

National Environmental Satellite 

Service, NCAA 
Sultland, MB 20233 ^ 



Available from originator sonly 



.Telephone (301) 763-8403 



microfilm Plots of VHRR Sattelllte Data Language 
' SVHRR4KM ' Hardware 



FORTRAN H Extended 

IBM 360-195/FR-80 Precision Microfilm 
Recorder/256K 8 bit bytes 



Displays the VHRR dat?a from the VHRR Ingest tape In the f^rm of printed char^ters on 16mm mi- 
crofilm In blocks of 128 characters by 48 characters, . Each printed character will represent 
a square four kilometers on a side at the subsatelllte point. Is obtained by averaging four 
lines and six spots along each scaiil' line of d«ta from the VHRR Ingest tape, and then Is deter- 
mined by a character lookup table. The program Is capable of utilizing 3fi^0 digital spots of a 
possible 4jB42, . - ^ 



John aC Prltchard 

National Environmental Satellite 

Service, NCAA 
Sultland, MB 20233 



Available from originator only 



Telephone (301)« 763-8403 



Vertically Analyzed Contours of Oceanographlc Language - FORTRAN 63 

Temperatures and Sallnftles, VACOTS Hardware - CDC 3600/CalCompt plotter/32K words 
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Provides a rapid and accurate means of constructing vertical cross sections of sea temperatures 
and salinities. Although this program has been designated to use STD data recorded on magnetic 
tape^ other versions are being used to, contour biological, chemical, and other physical oceano- 
graphlc data. Each vertical section Is divided Into two parts: the upper section for the con- 
tours from the surface to 300* m, ai^d the lower section from 300 m to ipOO m. Running time: 
To analyze and plot contours at Intervals of 1 degree C for temperature andai parts per thou- 
sand for salinity from the surface to ipOO m for 50 statlpns requires four\mlnutes of comf)uter 
time on the CDC 3600 and 25 minutes on the S^Copp 30'lnch plotter. Author - Forrest Miller, 

Southwest Fisheries Center , Copy on file at NODC (deck, documentation) 

^ National Marine Fisheries Service, NOAA 

P,0, Box 271 

La Jolla, CA 92037 Telephone (714) 453-2820 



Oxygen, Phosphate, Density Plots * v Language - FORTitAN IV 

Hardware - IBM 360-65/CalComp plotter/33K bytes 

Plots oxygen vs. phosphate, oxygen vs, slgma-t, and phosp^iate vs^ slgma-t (single or multiple 
station) for purposes of quallty^^co^trol and study of water types. Input: Hydrographlc data 
in ICES format. Author - Marllynn Borkowskl. 

Southeast Fisheries Center .Copy on file at NODC (documented listing) 

National Marine Fisheries Service, NOAA 



75 Virginia Beacl> Drive 
Miami, FL 33149 
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General Mercator Plot \ Unguage - FORTRAN IV 

Hardware - IBM 360-65 /CalComp Plot|^er/42K bytes 

Plots any variable on a Mercator projection; has option of writing in value or /naklng a point 
plot, and of connecting the points with lines. Input: Any header ^dards in JCfiS format* Pro- 
jection plot may be in any scale per degree, and may Include a coastline (obtained from a digi- 
tized world tape layout). Author - Marilyn Borkojwski. / ^ . 

Southeast Fisheries Center Copy on file at NODC docum^ted listing) 

National Marine Fisheries Service, NCAA 
75 Virginia Beach Drive ' 
Miami, FL ^ 33149 



Plrftter Commands Language - Assembly language under RTE 

PLOT, DVRlO Hardware - HP 2100S . 

< *t 

These subroutines are modifications of the HP subroutine PLOT and the RTE driver DVRlO. To- 
gether they control a CalComp or CalComp compatible .01" or .0025" Incremental step drum plot- 
ter with three-pen operation.* Equipment type is, identified through subchannel. Plot incre- 
ments are calculated in double precision Ititege^. ^ 

'Robert A. O'Brien, Jr. ' Available from originator only 

Shipboard Computing Group, c6de 8003 
Naval Research Laboratory 

Washington,, DC 20375 Telephone (202) 767-2387 



TIME AND SPECTRAL SERIE^ ANALYSIS 



Spectral 'Analysis Subroutines 
\ 



Language - FORTRAN 
Hardware - UNIVAC 1108/30K 



Gi^n digital time and spectral series, produces autospectral autocorrelation plots and 11st- 
l^j/and phase* angle vs. frequency plots. 



Peter D. Uersteln 

Naval Underwater Sydtems Center 

New London, CT 06320 ' 



Available from originator only 



elephone (203) 44 2^-0771, W, 2970 



Scalar Time Serle8^ 
TEMPLT7 



5, hl^p 



Language - FORTRAN IV 

Hardware ^ CDC 6400 (SCOPE 3,4)/l00K (octal) 
10 character words /Cartomp 
936/905 Plotting System 



Computes and plot* statistics, hl^pgram, time series, and spectrum for time series of any sca- 
lar quantity^ input : Scalar time series on tape In CDC 6400 binary format; maximum number of 
data points Is ^36. Output: Listing and tape for off-line plotter. Perfect Daniel frequency 
window used to compute spectral estimates from FFT generated periodogram values, 



James R. Holbrook 

Pacific Marine Environmental 

Laboratory, NOAA 
3711 Fifteenth Avenue N,E. 
Seattle, WA 98105 



Available from originator .only^ 



Telephone (206) 442-0199 



•^Ime ^rles Plotting 



Language - FORTRAN 32 
' Hardware - CDC 3100/PDP-8/CalComp Plotter 



ijhe program uses the CDC 3100 plotting subroutines to generate data for the PDP-8 plotting pi|o- 
gram. The user may specify a legend (up to 480 characters), label sizes, scale factors, the 
parameter to be. plotted and the Isopleths to be determined,^ The plotting Is done on a CalConp 
31 inch plotter under control of the PDP-8, Cruise data^lsSread from magnetic tape by the CD^ 
3100 In Bedford Institute format. Time Is plotted along' the X axis (drtim movement) .and depth^ 
along the Z axis (pen movement). Stations are plotted to the nearest day. Author - D,J, ; 
Lawrence, June 1969. < • ^ 



Director 

Bedford Institute of Oceanography 
P. O, Box 1006 
Dartmouth, N." S. ^ B2yj4A2 



Available from originator only 



r^lephone (902) 426-3584 ' 



Time Series Analysis Programs 
TSAP 



Language - MS FORTRAN 

Hardware - (2DC ^400 or CDC 3l50/Dlsk/3 tape 
' ^ ^ uaifes/.CalComp'Ylotter ,^ - 



A series of programs that edit digitized time series data, produce plots, prq|3abllity distribu 
tions, perform fast Fouri^ transforms* on data and convert Fourier coef f icients into^power and 
cross spectra. Input: Digitized magnetic tape outpt^ from program A TO D and data cards, 
dutput: CalComp plots, printer plots, [option dump of data^ tape, magnetic tape of Fourier coef 
ficients, listing of spectra, disk filA of spet^tra. Compute Note BI-C-74-2, May 1974, ^ 



F» W, Dobsfii 

Bedford Institute of Oceanography 
P, O, Box 1006 
Dartmouth, N. S, B2y 4A2 



• Available from originatoj: only 



Telephone (902) 426-3584 
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Time Series - Analog to Digital ' • Language - MS FORTRAN 

A TO D ■ , Hardware - CDC 3150/32 K-Vords/lSOO tracks on 

scratch €l8k/2 tape units/Crown' 
* ' . * CI822 tape recorder and Alrpax 

' - , ^ FPS24 discriminators for BIO » 

^ A-D converter « ^ 

Digitizes analog time series data at fixed time Intervals; removes means and trends^nd writes 
data on digital magnetiTc tape; processes data from sensors used fn air-sea Interaction studies. 
Input: Up to 12-channei magnetic tape read In through on-line A-D converter; control cards. 
tHttput: Summary listing and digital magi^t4<r tape. Computer Note BI-C-74-1, Feb. 1974. 
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Language 
Haj^dware 



FORTRAN/C(»IPASS (assembly) 
CDC 3300/OS-3 ti^-sharing^^_^^ 
operating system/Less «thair~32^ 
4 character words/Graphics: 
Tektronix 4002 or 4010 graphics 
terminal, CalComp 1627 II drunf^- 
"elemental X-Y plotter. Hewlett- 
Pat:kard 7200A graphics pl<Jlt;^t 



ACFFT computes the^utoSbxf^i^&t'ron lor autocovar lance function of a single time fleries using a 
variation of thfi^^nvolution property of the- discrete Fourier transform in^conj unction wl^th a ^ 
fast^-PoonSr transform algori^fefimT^ (2 , 4, 5) 

ACORR computes the autocorrelat j 



iinction- of a time series for* a, given ^number of lags* <3) 



ACRPLT is designed to plot estimated autocorrelation or partial autocorrelation functions; 
i, standard error designations are ifl^cluded. Provision Is made 'for the inclusion of confid^njce* 
intervals that correspond to hypotheses thaCt all theoretical correlation valueSvbey^nd a cer- 
tain lag are zero. /CalComp or Tektronix. (3, 6) • 

ALIGN aligns cross correlation or| cross cbvar lance values, shifting the estimates so ttiat a 
specif lid. lag becomes lag zero. It is Intended for use prior th computing est^pstes of the 
squared coherence and. phase spettra^Vf^ two time series. (2, 7) . ' ^ ^ 



AHPHCO determines 
functions, the cosp 



the amplitude, phases and TTie^'squared" coherence , given the, spectral density 
pa^ftum and* the quadrature spectrum of two timeu series. (1, 7,6)- 



ARMAP pro^Jyctaa Jrealizrf^liO'ns or observed time series of ifh autbre^ressive, moving average, or' 
mlx^^ t?^gressive-moving average process. The order of thevftijtoregressive and/or moving average 
.j>^>,M5)p^rator cannot exceed three; one realization 1^ produced per call and there is no restrictipn 
on the length of the observed time series. (3, 6) ^ , 

AUTO calculates values of the biased autocovariance* /unction. (1,9) * . ^ 

AUTOPLT is designed to plot autocorrelation or autocov&rlance functions on *the CalComp 1627 11^ 
plotter. The routine scales the yalues, determining the range of the values^to be^^otted on 
the Y-axis. (2) ' . . i * > ^ 

AXISL is a plotting aid allowing for general purpose axi^ dtfewing dnd l^bey.n|^. ^ It is written^ 
in assemy.y lan^guage a^d uses elements of the COMPLOT'driveilsV • (3; 

s , \ ' 

\ CCFFT employs the convolution property of the discrete Fourier transform in conjunction with 
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the fast Fpurier transform algorithm to compute the cross-correlation (covariance) function, 
(2. 4. 5) 

CCORR computes the biased auto- and crosB-correlation functions of two time series. (1) 

COHPLT accepts sqizared-coherency spectrum values and plots coherency on a hyperbolic arctangent 
scale which allows a constant length confidence interval to be constructed. (2,7) 

CCXCPLOT is a set of subroutines intended to provide a basis for easily programing graphics ap- 
plications* These subroutines expand relatively sijnple instructions specified by the prograijier 
to include all of the necessary details for the plotting device. COMPLOT was desfgned to be 
utilized in a time- sharing environment with any pf the above plotting devices; also, provisions 
have been made for plotting on combinations of these devices. (3) 

CONPID determines multiplicative factors used ,in constructing confidence Intervals for mean- 
lagged product spectral estimation. (1, 7) 

CONFIDl determines the multiplicative factors necessary to construct .confidence intervals for 
power spectral estimates found by averaging short modified per iodo grams, as in FOUSPC, FOUSPCl, 
F0USPC2, and JFFTPS. (3, 10) 

CONMODE is a series of subprograms designed as aids to conversational programing with the fol- 
lowing ft)ur objectives: (1) to allow the user to respond in as natural a way as possible with- 
in the limitations of the operating system available; (2) To make all responses entered by the 
user consistent in use^ (3) ''To provide a complete set of input/output subprograms for conversa- 
tional-mode use; (4) To allow ease in usage from a programing point of view, with fairly fast 
and efficient execution. (3) 

COPH computes squared-coherence and phase ^timates, given power spectral, cospectral, and 
/^adrature spectrum estimates. Th^ phase estimates can be in either degrees or radians. Simi- 
' lar to AMPHCO. (2) 

CO^TR computes the discrete cosine transform of an even function (array of values)^. Goertzel's 
meOhod is used. (1) " , * . 

CPEES is a- conversational program used in modeling. CPEES picks up information output on file 
'by the CUSID routine, asks the user a few questions, and then determines initial or final pa- 
rameter estimates for the identified modelf Calls USPE and USES,, getting preliminary and final 
parameter estimates. (3, 6) 

CPiri is a conversational calling program for the plotting routine PLTSPC, used to plot spec- 
tral estimates with <^onfidence intervals and bandwidth. The.tp^Sogram allows the user to plot as 
many data sets as he likes from thg same or different files #'%{2) 

CPLT2. is a conversational program to produce plots of frequency dependent*^data using routine* 
PLTFRQ. The program allows the user t;o plot as many data sets ad he likes from the same or 
different files. (2) ' • 

CROPLT is designed to plot the cross correlation (covariance) functions of two time series on 
the CalComp 1627 II plotter. The routine automatically scales the values, determining the 
range pf values to be plotted on the Y-axis. ^) 

CROSS computes the two cross covariance functions (biased) of two time series. (1, 9) 

CUSID is the first of a series of three conversatinal programs that collectively perform model 
identificaUon, parameter estimation (see CPEES), and forecasting (see CUSFO) for autoregres- 
sive integrated moving average models. This program corresponds to the identification phase in 
the modeling process, accepting time series data and computing the autocorrelation and partial 
correlation functions of the series after seasonal and/or nonseasonar difference operators have 
been applied. The routine is designed for use at a Te^letype or a Tektronix graphics terminal; 
selection of graphics output of the data and correlatipn functions oJJ^e^her the CalComp plot- 
ter or the graphics terminal is available. -.X3, 6, 11, 12) ^ ^ 

CUSFO computes and plots forecasts from the original data and a fitted modeirs See CUSID. (3) 



127 

137 ■ 



CZT computes z-^transform values of a finite sequence of real data points using the chirp z*- 
'trana£orp algorithm. Points at which transform values will be compifted must lie on circular or 
spiral cq^tou^s In the complex plane. The contour may begin at any point In the plane and the 
constant aro^jar frequency spacing between points on this contour Is arbitrary, A special con- 
tour of paVt^ular Importance Is the unit circle In which case a Fourier transform is computed, 
(2, 13, 14) 

DATPLX Is a general purpose plot routine for time series data, (3) 

DEHODl estimates values of the energy spectrum of a time series using complex demodulates. The 
frequencies (In cycles per data interval) at which spectral estimates ^are to be computed are 
input in the form of an array, allowing one to consider Isolated frequencies or a collection of 
related frequencies » such as an arithmetic progression. Only every Lth value of the complex 
demodulate at a particular frequency Is computed and averaged to fprm the spectral estimate at 
that frequency, where L Is specified by the user, (1, 15, 16) « 

DEM0D2 flnd^ the complex demodulate at the given frequency, given a time series, an array of 
filter weights, a selection Integer, and ^ single frequency. The values of the complex demod- 
ulate at the given frequency ate returned , either as real and imaginary parts of complex numbers 
or in terms of amplitudes and phases, A^.ln DEMODl, the calculations use the method of Goert- 
zel for the evaluation of discrete Fourier transforms, (1, 15, i6) 

DEM0D3 accepts output from DEM0D2 and calculates an energy spectrum estimate at a single fre- 
quency* (1, 15, 16) V 

DETREND removes a mean or linear trend from a time series, writing ove/ the Input array, (1) 

DIFF12 computes first or second forward differences of a series ,.:>»(1) 

EUR^A finds either the solution to the matrix equation R*f " g v^jjjfcR Is a Toeplitz matrix 
(l,e,, a symmetric matrix with the elements along the diagonals equal) and. f ,is a column vec-. 
tor, or the solution of the i;iormal equations which arise In least-square- filtering and predic- 
tion problems for single-channel time series, (1, 17, 18) ' \ , ^ 

EXSMO computes a t];lple exponentially smoothed series, (1,9) 

FFIN, d ,free-form Input routine, allows for the reading of nxmierlc information In BCD that Is 
relatdh^ly format free.^^.FFIN returns a single value on each call, and operates by reading 160 
chata^ers (2 cards or 2 card Images) *and advancing a pointer through the buffer . on each sub- 
sequent call until more Information must be Input or reading Is complete, A companion routine, 
FFINI, operates exactly as FFIN except that the buffer Is cleared and new informatlon^lnput on 
each call. B.Qth routines set the EOF bit If an end of file Is encountered, (3) 

FFTCNV computes tlie convolution of a series with a weighting function using the fast Fourier 
transform algorithm. The program Is designed for the convolution of long series with a rela- 
tively short velghtlng function, (2, 4, 5) , , , 

FFTPS uses a fast Fourier transform algorithm to compute spectral estimates by a method of time 
averaging over short, modified perlodograms, (1, 7, 10) 

net 

iTtS computes the direct or Inverse transform of real or complex data, using a power of two 
fast Fourier transform algorithm. (2) ^ 

FFTSPC finds a raw or modified perlodogram for a sequence of real data points using a power of 
two fast ypnilfir transform algorithm, l,e,, the absolute value squared of raw or Manned Fourier 
coefficients are found and suitably scaled. This subroutine Is Intended for use with time se- 
ries whose length is slightly smaller than or equal to a power of two, (3) 

FILTERl designs symmetrical, non-recursive digital filters. It Is conversational In form and 
Is Intended for use -^at^ a Tektronix 4002 graphic terminal. Two design techniques are supported, 
corresponding to the subroutines GENERl and FIVET, Outputs Include an array of filter weights 
and the attained frequency response, (2) ^ \ . ' 

FIVET designs non-recursive symmetrical digital filters. The design technique Is known as the 
5T*s method and requires that the specifications be given for the desired frequency response 



128 



138 



# 

function* the maximum allowable deviation from the desired* response , and the bandwidth of tran- 
sitions in me attained response corresponding to discontinuities in the desired response, QZ, 

19] . ^ ^ > 

FOLD performs polynomial multiplication or, equivalent ly., the complete transient convolution of 
two series* (1, 17) , ' * 

FOURTR takes the .Fourier transform of real data; many output options are available, (1, 20) 

FOUSPC finds the Fourier transforms of segments^ of a time series. The segments must be of ' 
equal length, but may abut, overlap, or be in any order relative to the -given time series. 
FOUSPC can be used in conjunction with SPEC to estimate power spectra by a method of tlme^av- 
eraglng over short, modified periodograms. Note that if one is Apt interested iii examining the 
Fourier-like coefficients of each segment before passing on to s^^r^l estiniates, then tuubi'Ci 
or F0USPC2 should be used, (ij 

FOUSPCl computes the power spectrum of a time series by a method ot, averaging over short, modi- 
fied periodograms, (3, 7) 

F0USPC2 is similar to FOUSPCl, but accepts two time series, computing the cross spectral matfix^ 
at specified frequencies, (1) * ^ 

FRESPON computes the frequency response of a filter, (1) 

GAPH computes and plots estimated gain and phase functions of a time' invariant linear System, 
The gain values are plotted on a logarithmic scale and both gain and phase plots include con- 
fidence interval constructions. Input includes smoothi^d power and cross spectra estimates, 
(3, 7) 

GENERl is a filter design program. It may also be used to generate weights of lag window or 
data window, although the routine WINDOW is specifically deslgnerd to perform this^task and is 
therefore somewhat easier to use, (1, 26) . * . ' 

(aH5R2 generates an arithmetic progression, (1) 

GENER3 designs a symmetrical low-pass filter given an array cont^aining desired frequen^ re- 
sponses at equally spaced frequencies from zero to one-half cycle per data interval* (1) 

LOGPLT plots power spectral estimates on a base ten logarithmic sqale, the output device b^lng 
a CalComp 1627 II plotter. The -Subroutine automatically scales the estimates, determining the 
range of values to be plotted on the Y-axis, The estimates must have been computed at equally ' 
spaced frequencies. An BOX or 95% confidence Interval (computed using routine CONFID) is also 
plotted, (2) • ^ ' ~ ^ 

NOIZT tests a time series to determine if it can be considered a realization of a white noise 
process. The test is a frequency domain test involving the integrated spectrum of the series. 
The results are plotted with SOX and 95% confidence regions, (2, 7, 21) „ , , 

PHAPLT plots the phase estimates with 95% confidence Intervals on the CalComp 1627 II plotter. 
The phase estimates must have been computed at equally 'spaced frequencies and, in order to gen- 
erate approximate confidence intervals, the associated squaried-coherency estimates at these 
same frequencies must be given, (2,7) 

PLTFOR graphs an initial segment of .time series data followed by a set of forecasts that in- 
clude upper and lower probability limits as generated by CUSFO or USFO, (3), 

PLTFRQ allows frequency dependent functions to b6 plotted versus any arithmetic progresslo^ oE 
frequencies, using the CalComp 1627 II plotter, ,^he routine scales the frequency values, de- 
termining the range of the values to be. plotted o8 the Y-axis, (2J 

PLTSPC is designed to plot. power spectra on the CalComp 1627 II plotter,. The routine scales 
the spectral estimates, automatically determining the range of value^^o be plotted on the y- 
axis Also, the plotting of spectral window bandwidth and confid^^ice ^intervals is possible. 
The bandwidth of the spectral window associated with lag window the user may have used, is 



129 



139 



i 



computed by WINIJOW and the multiplicative factors needed to determine confidence intervals can 
be found using the CONPID routines* (2) * 

POLRT chutes tije real 'and complex roots of ,a po^|||mial with real coefficients. (1, 9, 17) 

POLYDV divides one polynomial by another or deconvolves one signal by another. (1, 17) 

PROPLT produces a profile plot on either the Tektronix graphics terminals or the C^lComp plot-# 
ter or both, and is intended for use with the routine TIMSPEC which produces spectra from seg4i 
ments of a long record, the Segments being equally spaced in time.-'Tlii^ profile is not a tr#f^ 
perspective view, as the frequency (horizontal) axis of each spectrum/^ of constan^t, length ancl • 
separated op, the time (vertical) axis by a constant amount* (.3) / ^ 

PSQRT computes' Sie^efficients' of the square rpot of a power series*or polynomial. (1, 17) 

RANDM generates a (pseudo) random sample from one o^" four possible population distributions, 
with the size of the sample specified by the user. The population mean is fixed at zero; the 
variance of scale parameter is user definable. Provisions have been made for repeated calls 
to RANDM; that is, one can generate a. number of independent random samples from the same or 
different populations. (3, 22)* 

^ ■ ■.. \ 

RCTFFT computes the discrete Fourier transform of real data -using the Cooley-Tukey fast Fpu- r 
rier transform algorithm. The number of data points must be a power of two. (1) 

RESPON computes the square of the absolute values of the frequency response of a general filter. 

REVERS performs bit-reversing on an array of complex data points. REVERS is written in COMPASS 
And is used in programs employing the fast Fourier transform algorithm. (1) 

RPLACB changes specified values of a time series. The indices of the values to be changed and 
thfe new values themselves are read in by RPLACE according to a format specified by the user. 

RRVERS performs bit-reversing on an array of real data points; the subroutine is written in 
COMPASS and is used in FFTPS. (1) 

<■ 

SARIT produces a series by serial computations on one or two other series; there are ,seven dif- 
ferent choices for the series to be produced. (1) 

SERGEN generates a time series by adding random numbers or noise^to a signal, in this case'a 
trigonometric series.* Inputs include amplitudes or coefficients of the trigonometric series, 
an &rray of random numbers, and a parameter specifying the desired signal level to noise level 
ratio. (1, 23) 

SHAPE designs a filter which will shape a given series iiito a desired output series. (1, 17) 

SINTR calculates the discrete sine transform of a series of\data points. (1) 

SMO calculates a smoothed or filtered series, given a time serie5, a selection integer, and a 
weighting function, (1, 9) 

SPEC accepts output from FOUSPC, computing either the power spectrum of a single time series or 
the cross spectral matrix of two time series. In thje latter case, FOUSPC must be called twice 
with different time series at each call, but with the same arithmetic progression of frequen- 
cies* (1) 

SPECTl is a conversational main program designed to estimate, output, and plot the autocorre- 
lation and auto spectral functions of a single time series. It is intended for use at a tele- 
typewriter. (2) 

SPECT2, a conversational main program for use at a teletypewriter, computes power spectral, 
squared coherence, and phase estimates. The program allows the correlation functions of the 
two time series iqvolved, the powej: spectral, squared coherency, and phase estimates to be 
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output on a comblttatlon of devices, including the Teletype, line printer, CalComp plotter and 
disk* (2, 7) " ^ . 

TAirrOPLT is designed to plot autocorrelation or autocovariance functions on a Tektronix 4002 
graphics terminal; the routine scales the values, detei^ines the range of the values to be 
plotted on the Y-axis. (2) - ^ \/ 

TCOHPLT, designed for use with a Tektronix graphics terminal, plots coherence estimates on a 
hyperbolic arctangent scale, allowing the construction of confidence intervals whose length is 
Independent of frequency. (2, 7) , • 

TCROPLT plots the cross correlation (covariance) functions of two time series' on the Tektronix 
graphics terminal; the routine automatically scales the values, determining the range of values 
to be plotted on the Y-axis. (2) 

TFORMl calculates values of the spectral density function at any arithmetic progression of fre- 
quencies on [0,1/2] cycles per data interval, given autocorrelation or autocovariance function 
of a time series and an array to be used as a weighting kernel. This weighting kernel can be 

genferated using the routine WINDOW. (2, 7, 8) 
* 

TF0RM2 computes the co- and^^quadratur? spectrum estimates for an, arithmetic progression of 
frequencies on the /interval zero to one half cycles per data interval, given the auto and cross 
.correlation functions. Similar to TRANFRM except that it does not produce the associated auto- 
sp^ctral estimates. (2, 7, 8) ' ^ 

TIMSPC finds power spectral estimates computed from segments of a long time series, the begin- 
ning of each segment •being equally spaced in time. The computational approach is a direct one 
via a fast Fourier transform algorithm and th^ technique^ is appropriate for segment lengths 
slightly less than or, ideally, exactly equal to a power of two. Thusj the routine allows one 
to compute a type of "time varying" spectra and these spectra can be graphically examined^with 
the aid of a profile plot (PROPLT) or a contour plotting routine. (3) _ 

TLOGPLT plots power spectral estimates on a logarithmic scale and la. designed for use with a ^ 
Tektronix graphics terminal. The routine automatically scales the estimates, determining the « 
range of values to plot on the Y-axis. The estimates must have been computed at equally spaced 
frequencies. An 80Z or 95% confidence interval (computed using routine CONFID) is also plotted. 

TNOIZT performs a frequency domain test to determine if a time series can be considered a 
white noise or purely random process . The test 19 appropriate for detecting departures from 
whiteness due to periodic effects, and is intended for use iri conjunction with attest based on 
the autoc6rrelation function fox detecting local correlation. The routine plots theoretical 
Integrated spectrum values with 80Z and 95Z confidence regions, the integrated spectrum esti- 
mates of the time series being computed from Fourier coefficients input to pOIZT. These Fou- 
rier coefficients may be computed using the FOURTR or RCTFFT routine. (2, 7, 21) 

TPHAPLT plots the phase estimates with 95Z confidence intervals On a Tektronix A002 graphics 
terminal.' The phase estimates must have been computed at equally spaced 'frequencies and, in. 
order to ge^rate approximate confidence inter:vals, the associated sq.uared-coherency estimates 
at these same frequencies must be given. (2, 7) 

TPLTFRQ is designed to plot frequency response function (or any function of frequency) on a Tek- 
tronix graphics terminal. The routine scales the frequency values, determining the range of the 
values to be plotted on the Y-axis. (2) 

TPLTSPC is designed to plot power spectra on a Tektronix graphics terminal. The routine scales 
the spectral estimates, automatically determining the range of values to be plotted on the Y- 
axis. Also, the plotting of spectral window bandwidth ^nd confidence intervals is possible. 
The bandwidth of the spectral window associated with any lag window the user may have used is 
computed by WINDOW and the multiplicative factors needed to determine confidence intervals can 
be found using the CONFID routine. (2) . 

TRISMO is designed for smoothing spectral estimates evenly spaced over the interval 10,1/2] (in- 
cluding end points), or equivalently , zero to the Nyquist frequency. The spectral window 
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applied Is a triangular one and tlie smoothing or convolution is done in a recursive fashion, 
making it relatively fast, (3, 24) , 

TSGEN is a conversational program for the generation of a wide variety of time series • More 
specifically, the program constructs realizations of autoregressive integrated moving average 
processes where the noise process or "random shock" terms j^nvolved may be input from file or 
generatea: yitRln^e program. In the latter case, .a selection of one of four possible families 
of distributions for the noise is allowed, TSGBN can be run from any Teletype-like terminal, 
including the .Tektronix graphics terpinals, (3, 25, 6) 
* • 

TSPECTl and TSPECT2 are respectively versions of SPECTl and SPECT2 that are suitable for use at 
a Tektronix graphics terminal, (2) 

-J 

TRANFR calculates values of the spectral density function^iven the autocorrelation (or autoco- 
variance) function of a time series and an array to be used as a weighting* kernel. This 
weighting kernel can be generated using the routing WINDOW, (1, 7, 8) 

TRANFKM calculates spectral density functions, the cospectrum, and. the quadrature spectrum^ 
given the . autocorrelation (or autocovariance) functions, the cross correlation (or cross co- 
variance) functions of two time series and an array^xo be used as a weighting kernel. This 
weighting kernel can be generated using tHe routine WINDOW, (1, >, 8) 

TTYCON, written in COMPASS, is de&igned to be used in 'conversational progr^tee^or the output of 
alphanumeric messages and the input of .sigued^numbers , integer or flowing point, and alphanu- 
meric characters, (2) * « , • - " 

TTYNUM is designed to be used in conversational programs for the output of one or more alphanu- 
meric messages and the input of one or more signed numbers (integer or floating point) or eight- 
character alphanumeric identifiers, (2) , 

UNLEAV is primarily designed for use with RECTPFT, The routine takes an array of interleaved* 
coefficients and sep^arates them, sending the coefficients into two distinct arrays of one half 
the length of the input' yray. The length of the input array must be of the form,Mf2 where M 
is a power of 2, (1) 

USES^ accepts initial parameter estimates for a seasonal or nqnseasonal autoregressive-moving 
average model and then employs the (possibly differenced and transformed) time series being 
modeled, computing final parameter estimates. These fina^ parameter estimates are output, 
along with their covariance and correlation matrix, the residuals from the fitted model, and 
the 'sample autocorrelation function of these residuals, and chi-square statistic based on the 
residual autocorrelations, (3) 

USFO generates forecasts with upper aid lower probability limits, given the original time se- 
ries data and a fitted nonseasonal or \easonal autoregressive-integrated-moving average m,odel. 
Weighty for updating forecasts are also^utput. USFO thus represents the fourth and final 
stage in a successful modeling attempt, beginning with model identification (USID,' CUSID) , pre- 
liminary estimation of parameters (USPE, CPEES), and final parameter estimated and diagnostic 
checking XUSES, CPEES), (3) , - ' 

USID accepts a time series as input, possibly transfarms and differences the series in seasonal 
and/or nonseasonal fashion, 'and then finds the sample autocovariance, autocorrelation, and par- 
tial autocorrelation functions. This marks the first of the four programs employed in model 
identification, parameter estimation, and forecasting, the remaining subroutines being USPE, 
USES and USFO, Conversational programs (CUSID) and support graphics (ACRPLT) are available for 
USID, (3, 6, 11, 12) 

USPE accepts output from USID and choices for t^e order of the autoregressive and moving aver- 
age parts in modeling possibly transformed and differenced time series data; a^ conversational 
calling routine for USPE is CPEES, (3) ^ ' 



WINDOW generates an a^ay to be used as a weighting function or lag window. One of six differ- 
ent lag windows may be selected: The rectangular or box car window, the Parzen lag window, the 
Bartlett or triangle window, the Tukey or cosine window, the Lanczos data window, and the 
Lanczos-square4 data window, (1, 7) * " 
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WlNBOHl geaerates a aynanetrlcal array of weights for use a'a a data window, aa required, for ex- 
SriS^he spectruHatlmatlon procedurea of the AR^ND xloutlnea FOUSPC. FOOSPCl F0USPC2, 
and FFTPSv Two baalc window ahapea are available, the flr^t having a ipeqtral window very sim- 
ilar to We Tukey or cosine window, while the aecond produiea the Parzen apectral window. U, 
10) « 
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Tech, J,, Vol, 48, pp, 1249-1292, May 196?- 

15, Bingham, C, M, Godfrey, and J,W, Tukey, •^Moder^eJ^nlques of Power Spectrum Estimation," 
IEEE Transactions on Audio and ElectroacoustJ.^^^T^ol, AU-15, No, 2, June 196-7, v 




16, Granger, C,W,J,, Spectral Analysis Economic mejserles . Princeton University Press, 

Princeton, NJ, 1960, ^ 

17, Robinson, Enders A,, Multichannel Time Series "^^ ^sls with Digital Computer Programs, 

Holden-Day, San Francisco, 1967, 

18, Levlnson, N, , "The Welner RMS (root mean square) Error Criterion In Filter Design and Pre- 

diction," Journal of Mathematical PJiyslcs, Vol, 25, pp, 261-278, 1946, \ 

19 Helms, Howard, D, , "Nonrecurslve Digital Filters: Design Methods for Achieving Specifica- 
tions on Frequency Response/'* IEEE Transactions on Audio and Electroacoustlcs, Vol, AU^ 
16, KOi? 3, Sept, 1968, 

20, Hamming, R, , Numerical Methods for Scientists an d Engineers, McGraw-Hill, 1962, 

21% Flsz, Marek, Probability Theory and Mathematical Statistics , Wiley Publications In Statis- 
tics, New York, 1963, 
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22. Marsaglls, G. and T. Bray, "A ponvenlent Method for Generating Normal Variables/* SIAM Re- 

view, Vol. 6t No. 3, July 1964. 

* ♦ • 

23. Beyer, W.H. , ed., Handbook- of Tables for Probability and Statistics , The Chemical Rubber 

Co., 1966. : ; ' 

* 24. Singleton and Poulter, "Spectral 'Analysis of ,a Killer Whale Call," IEEE Transactions on 
Audio and Electroacoustics, vol. AU-15, No. 2, June 1967. 

25. Durbln, J., "The Fitting of Time Series Models," Rev. Int. Inst. Stat., Vol. 28, No. 233, 

1960. • . 

26. BOMM. A system o{ Programs f^for the Analysis of Time Serieg , Institute of Geophysics and/ 

Planetary Physics, Univer^ty of California, U Jolla. 

s * Directojfj, Computer, Center Available from 'originator only 

Oregon State University 

Corvallis, OR 97331 Telephone (503) 754-2494 



G^erates Arbitrary Filter » Language - FORTRAN IV 

flILOW Hardware, - IBM 1800 

Generates a lowpass, bandpass, or highpass filter defined by three parameters, with or without 
its conjugate; punches the multipliers on cards; and lists its amplitude response over the full 
frequency- range. NIO Program No. 158. Author - D.E. Cartwright, 

National Institute of Oceanography Copy on file at NODC (listing, documentation) 
Wormley, Godalming, Surrey, England 



Two--DlmensionaI Autocorrelation Language - FORTRAN 

V Hardware - IBM 7090/lBM 1401 

Applies regression and correlation analyses to a sample of ocean terrain. Computes variance 
and covariance as function of position in data field. Ref. Arthur D, Little, Inc., Technical 
Report No. 1440464, "Statistical Analyses of Ocean Terrain and Contour Plotting Procedures," by 
Paul Switzer, C. Michael Mohr, and Richard Heitman, April 1964, Appendices B and C of re- 
port describe (but do not list) two routines used: (1) "Correlation Constants" (IBM 7090) ;^(2)*^ 
"Local Means and Variances" (IBM 1401), / . ^ 

f 

Trident /ASW Library ' Copy on file at NOQC (listing)'; documentation 

Arthur D. Little, -Inc. Xabove report) available from NTIS, Order No. 

*35 Acorn Park , . AD 601 538/LK, $4.75 paper, $2.25 microfiche. 

Cambridge , MA 02140 ' ^ , * * 

\ 

Time Series Analysis Language - FORTRAN IV K 

BLACKY , Hardware - IBM 360 | 

Computes, for two simultaneous time series, cross spectra, power spectra, phase and coherence. 
Subprograms obtain the filtered seriers, remove tHfe trend, and compute the auto- and cross cor- 
relations. This NBGS library program is listed in a thesis by" John G. McMillan, June 1968. 
The thesis uses digital analysis by program BLACKY in the study of temperature fluctuations 
near the air- sea interface, the wave field at the same point, and the downstream wind velocity. 

Naval Postgraduate School Thesis available from NTIS, Order No. AD 855 

Monterey, CA 93940 533/LK, $3.25 paper, $2.25 microfiche. 

Spectral Analysis of Time Series Language - FORTRAN IV/ ALGOL 60 

Hardware - UNIVAC 1108/Burroughs B5500 




Finds the spectra, cospectra, quadspectra, coherence, and phase, of two series or a single spec- 
trum of one series^ using the fast Fourier transform (algorithm of Cdoley and Tukey, 1965), 
Special Report No, 6, by Everett J, Fee, March 1969, 

The Librarian Copy qn file at, NODC (above report) 

^-Center for Great Lakes Studies - 
University of Wisconsin-Milwaukee* 
Milwaukee, wi 53201 . 
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Spectra Programs Language - FORTRAN IV ^ 

. DETRND, AUTCOV, CRSCOV, FOUJITR ' , . Hardware.-- IBM 3^0-40 

DETRND removes the mean, or the me»and lin~ear trend (slope), from a time series, AUTCOV com- 
putes the autocovariance of the tlM series, CRSCOV computes the auto- and cross-covariances 
of two sequences, FOURTR computes either the sine or cosine Fourier transform. Smoothing of. 
either is optional. Technical Note 13, "Water Wave Teaching Aids," by Ralph H. Cross, Adapted 
(with pennisMon) from a program, written at Bell Laboratories by M,J,R, Healy, 1962, 

« , * 

Hydrodynamics Laboratory Copy on file at NODC (above report) 

Massachusetts Institute of Technology 
Cambridge, MA 02139 

Analysis of Non-Linear Response Surface Language - FORTRAN^ IV 

Hardware - IBM 1130 

Analyzes the data ftom response surface experiments when two or three factors are measured. 
Options allow calculation of maximum likelihood estimates, of power transformations of both in- 
dependent and dependent variables, and the plotting of theit relative maximum likelihood 
graphs, as a measure of the precision of the principal estimates, the data is then subjected 
to analysis of variance, using orthogonal polynomials, and principle component analysis; , 
specified contours of the dependent variable are plotted, b^th vfithout and with transformation, 
PRB Technical Report No. 87 b/ J.K. Linds'ey, Aug. 1968, \ " . 

' Pacific Biological Station Copy on file at NODC (above report) 

— "-'^isherie^ Research Bocird of Canada ^ • 

P. 0. Box 100^ 
Nanaixno, B. C. V9R 5K6 

* • 

Multiple Discriminant Analysis ' Language - FORTRAN IV 

MULDA . Hardware - IBM 1130 

A complete multiple discriminant analysis is performed by six interrelated programs which are 
executed in succession through the link feature in 1130 FORTRAN, Will accept up to 25 variates 
and as many as 10 groups. Any number of additional data cafds can be read and processed after 
the discriminant analysis has been completed. The value of the discriminant function, classi- 
fication chi-squares, and probabilities of group membership are computed and printed for each 
additional m-variate observation. FRB Technical Report No, 112 ' (unpublished manuscript), by 
L,V, Pienaar and J,A. ^Anson, March 1969, 

* Pacific Biological Station Copy on file at NODC <above report) 

Fisheries Research Board of Canada ^ 
P, 0, Box 100 . 
Nanaimo, B, C, V9R 5K6 ^ 

Fourier Analysis / ' Unguage - FORTRAN 



UQl 



Hardware - IBM 7090/32K 



Obtains amt)litudtes 4nd phases of frequency components * in any record. Standard Fourier analysis 
plus use of Tukey cosine window to reduce edge effects, ^^uthor - Alsop, 
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Lamont-Doherty Geological Observa- Copy on file at KODC (deck, documentation) 
tory . 
^ Columbia University / 

J> Palisades,' NY ,10964 ' ^ ' . 



Cluster Analysis Language - FORTRAN 

* " Hardware - IBM 1800 ' 

^Carries out a single ^Linkage cluster analysis, using* data in the form of an upper triangular 
similarity matrix, (^tput; (1) similarity level of clusterin^ycle; (2) a list of the link- 
ages that occur at that similarity level; (3) at the end of the cycle, the cluster numbers and 
a list of the entitles making up each cluster are printed. Running time: A matrix of order 60 
took Approximately 15 minutes to cluster, NIO Program No, 166, Author - M, Fasham, 



National Institute of Oceanography Copy on file at NODC (listing, documentation) 
\ Wormley, Godali^ing, Surrey, England , 



Probability Distribution^ -Language - FORTRAN IV 

WEIBUL ' ^ ' . Hardware - IBM 370/120K 

Parameters for a Weibull probability distribution are calculated from low, most probable^ and 

high estimates of ranSom variables, * > 

/ / 

Robert T, Lackey Available from originator only . \/ / 

Department of Fisheries and ' ' ^ , ' ' ■ 

Wildlife Sciences 
Virginia Polytechnic Institute and 

State University ° ^ ^ 

Black8burg,rVA 2^061 *, * ' 
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Statistics from WHOI Format . ^Language - FORTRAN IV-H ^ ' ^ m 

STATS , . hardware - xM Sigma 7 v * ^ 

Computes and lists statistical quantities related' to variables storid on tape in WHOI standard # 
format,* See HISTO format reference, ^ \ - 



Richard W,, Payne . . Available from originator only « 

Wood Hole^Oceanographic Institution ' >^ * 
Woods Hole^m 0254^ Telephone^(617) 548-1400 



Exji^nded Normal^e^arator Pro^a»=^ ^ Language - FORTRAN IV 

EIWRMSEE. f F Hardware - IBM 360-651/168K where K is 1024 



Marian Y,Y, Yon^ " Available from originator only 

llational^Marlna Fisheries Service 

P,0, Box 3830 • ' ' - , . 

Honolulu, HJ 96812"* ' Telephone (808)^ 946-r2181 
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Separatesr a polynomial dist;:^lbution into Its component groups where no a priori information 
is available on the nUU^er of^ modes , their overlap points, or variance. Transformation of 
frequency dlsttHVutlon by pry>^t analysis, polynomial r'egresslon analysis, and program NORMSEP 
(Hasselblad, 1966),' Ihputj ObservedVf requency distribution together with values for identi- 
fication and control purposes. Output: means, .variances, and numerical representation of the 
separated groups. 



Single Integx;^tlon 



Language - FORTRAN 
Hardware - IBM 707A 



» , f 
Equally spaced time series data are integrated once using Tick's melhod. The data must be sam- 
pled at a rate of at least twice the Nyquist frequency. Informal report Di No, 66-36. es No. 
66-3^1^ Author -E,B. Ross. ' • ' , 



Data' Systems ^f f ice 

U.S. Naval Oce^nographic Office 

Washington, DC 20373 



Available from originator only 
Telephone (301) 763-14A9 
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CURVE FmiNG 



Fits a Smootl) Curve 
SMOOTH « - 



Language - FORTRAN IV 
H^ware - IBM 1360-65 



Fits a smooth cunffi between supplied points that passes exactly through those .points. Author - 
'Dave JPendieton. 



Oceanographic^^rvices Brarich ^ 
National Oceanog^phic Dat^^ Center 
NOAA/^S ^ 
Washington, DC 20233 



Copy on, file at NODC 
Telephone J^(3«f^4-7439 



LanguagOi- FORTRAN V* 
Hardware - UNIVAd 1108/25K 



Curve/ Fit ting: Velocity "Prof ile V 
NEWFIT 

\ 

Fits a velojti^ jfjrofile with a series of curve segments haying continuous first derivatives at 
points of intersection. Output; Printed listings of , original data, fitted data, and coeffi- 
cients of curve Segments; also, cards ^or input to program "Sonar in Refractive Water". NEWFIT 
is the main routine of the program described in Report AP-PROG-C-8070, "A New Curve-Fitting 
Program," by Melvin 0. Brown, Associated Aero Science Laboratories, Inc., Pasadena, for NUSC, 
Feb, 1968. 



Naval lindersea Center 
Pasadena Laboratory 
3202^''E. Foothill Blvd. 
Pa^'adena, CA 91107 



Copy on file at NODC (above report) 



Least- S<}uares Curve Fitting in Two,, Three, 

and Four Dimensions 
UCF, BCF, TCP 



Language - FORTRAN II 
Hardware - CDC 3100 



Three subroutines, UCF, BCF, and TCP (for Univariate, Bivariate, and Trivariate Curve Fit), for 
use in two-, three-, and four-space. Curve coefficients calculated by reduction technique due 
to P.D. Grout (1941). Outptpt: printout of coefficients, in non^lized floating point, ^ and 
differences curve- to-pplnts , in same format. Satellite subroutine SYMMET is called to solve m . 
* simultaneous equations ip x. BIO Computer Note 68-1-C by F.K. Keyte, Jan. 1968. 



Director 

Bedford Institute of Oceanography 
P.O. Box 1006 

Dartmouth, N.S., Canada B2Y 4A2' 



Copy on file at NODC (Report with listing and 
documentation) 



Subroutine for Fitting a Least-Squares . Languc^ge - FORTRAN V 

Distance Hyperplane to Measured Data Hard\*are - UNIVAC*1108 

A subroutine for modeling measured data in k-space by a least- squares distance hyperplane, and 
numerically compared with ordinary least squares. Minimizes the sum of the squares of the 
perpendicular distances from the points to the hyperplane model. Input: Points * (%1* 
Xjjj2»«--> x^k) k-space, where each component is in error. Output: Normal form of the 
hyperplane: AX •-P - 0 ;e<nr^ " 1) ; p is the distance from the origin of the coordinate axes to 
the hyperplane. NUSC/NL Tech. Memo. NO. PA4-121-74, "A Computer Subroutine^ for Fitting a Least 
Squares Distance Hyperplane to Measured^Data," by M.J. Goldstein. 

Ni J ^ 

Marvin J. Goldstein Available from originator only 

Naval Underwater Systems Centei; ' " 

New London, CT 06320' ' Telephone (203) ^^^^^P^* ^^^^ ^ 
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Fits FolTnomial 
P3TEBM 



Language - FORTRAN IV 
Hardware - \BM 360-65 



This routine fits a polynomial function Y(x) - ao + a^^x + ajX + •••a^x^ to the data (xj^, Yi) , 
(X2> Y2) ... (Xn, Yn) by using the least squares criterion, 'The method Is very accurate and 
should perform well for up to a 20--term polynomial and 100 data points. 

Jerry Sullivan Available from originator only 

Center for Experiment Design and 
Data Analysis 

Washington, DC 20235 Telephone (202) 6^-7288 



Least-Squares* Plot 



Language - FORTRAN 
Hardware - IBM 7074 



Fits an n-degree polynomial (max, n " 10) or an exponential function to data points (max, 300), 
jdotting the actual curve and the computed curve for comparison or plotting the data points 
only to help identify the type of curve they represent, OS No. 10112, Author - James S, 
Warden, 



Data Systems Office 

U,S, Naval Oceanographic Office 

Washington, DC 20373 



^ Available from originator only 
Telephone (301) 763-14A9 



Temperature, SaliSh:y Corrections 
CURVFIT N1S512 



Language - FORTRAN 

Hardware - UNIVAC 1108/DEC PDP-9/6K words 



Determines corrections for electronically measured temperature and salinity data, using linear 
and curvilinear regression techniques. Input: Temperatures or salinity data collected simul- 
taneously with electronic sensors, reversing thermometers, and Niskin bottles. Output ? ^^Cor- 
rections for a range of possible observed values, equations of best fit linear, twrabolio^^ and 
x:ubic equations, and standard error of estimate, ^ 



Harry Iredale 

U,S, Naval Oceanographic Office 
Washington, DC 20373 



Copy on file at NODC (Deck, listing, documenta- 
tion <f ^^^^ 
Telephone (202) A33-3257 , , \ . 



Barkett's Curve Fitting Language— FORTRAN 

I y ' Hardware - IBM 1800 

bartlettls method for computing the best value for fitting a linear relationship or an exponen- 
tial relationship. The 70Z and 90% confidence limits on the slope are also found. The program 
takes a maximum of 99 sets of data, each with a maximum of 500 points, NlO^Program No, 174, 
Author - Maureen Tyler, . , - 

. National Institute of Oceanography Copy on f life at NODC (listing, dbcumentatiqn) ^ 
WortUley, Godalming, Surrey, England , 



Curve Fitting 
CRVFT 



Language^ 
Hardware 



FORTRAN II 
GE 225 



Finds either best least-squares fit to n points within Specified standard deviation si^ 
fits a sp'ecified »*M-curve** order curve — the former executed by M-curve Negative, the latter 
by M-curve non-negative. In either case »*SD»- ±i the actual standard deviation as calculated, 
BIO Computer Note 66-5-C, Appendix 5; /.also, a lA-page wrjptjp^s in the "COPE" catalog. (1965) 
op the Woods Hole Oceanographic "institution. Author -^K, Keyte,' 
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Btdlfotd In«tltut« of Octanography Copy on file at -NODC (deck, documentation) 
P. 0. Box X006 ' ; • ^ 

Dartmouth, N. 8* B2y 4A2 ^ ' ^ - 
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APPLIED MATHEMATICS 



Linear Interpolation , Language - PL/1 

LiNiNX ^ Hardw^fle^- IBM 360-65/144 (hex) bytes 

Computes a linear interpolation on fullword fixed binary integers. Author - Robert Van Wie. 

- ' y 

Oceaiiographic Services Branch Copy on file at NODG 

V National Ocfeanographic Data Center ^ * 

^ NOAA/EDS, * * ' ' " ^ 

Washington, DC 20235 * ^ Telephone (202) 634-7439 

Lagrangian Three-Point Interpolation " Language - PL/1 

^LAGJPT ^ \ Hardware - IBM 360-65 n ' ^' 

Computes a^Lagrangian three-point interpolation; calls subrout'ine LININT. 'Author -"Hobert 'Van 

Wie. - ' 

N " ^ 

Oceanographic Services Branah Copy on file at NODC 

National' Oceanographic Data Center 

NOAA/EDS 

Washington, DC 20235 Telephone (202) 634-7439 



Calculates Spline Coefficient Language - FQRTRAN IV 

SPLCOF * Hardware - IBM 360-65 

Calculates spline coefficient for use by routine SPLINE. Author - Dave Pendleton. 

Oceanographic Services Branch Copy on file at NODC ■* - - V 

National Oceanographic Data Center 
NOAA/EDS ' . . , 

' Washington, DG 202.35 Telephone (202) 634-7439 

» * 

Interpolating by Cubic Spline Language - FORTRAN IV ' 

SPLINE * Hardware - IBM 360-65/832 byt'es (object form) . 

, ' % 
Performs interpolation by cubic splines. This method fits a cubic spline between adjacent 
points while insuring that the first two derivatives remain continuous. The endpoints (X(l) 
and X(N)) use an extrapolation of the curvature at points X(2) and X(N-l). Author - Dave 
Pendleton. ^ * , 

Oce^ographic Set^ices Branch Copy on file at HODC- 
National ^ceanographic Data Center 

J NOAA/EDS ^ » 

Washington, DC 20235 Telephone (202) 634-7439 . ^ 

Program for Smoothing Data „ Banguag^ - FORTRAN IV 

Using the Cubic Spline • . Hardware ^ UNIVAC 1108 . 

Fits measured data with the smoothing cpbic spline, using an extension of Reinsch*s technique 
--which brings the second derivative of the spline, to zero at its end points , The extension al- 
V lows end conditions. on either first or second derivatives. Input: 'Set of sample data (xi, y^) 

i « 0), 1, ...^ R>2'; Xo<x,<...<Xjj. And end conditions on either the first or second derivative/ 
- and a smoothing paramerer S e (N-/2N, N+/2N) where N « n+1. Output: Smoothed data values 

X 
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1^1 and pointwise approximations to the first and second derivatives at the points x^. NUSC 
Tech. Memo. No, PA4-48-74, "On a Computer Program for Smoothing Data Using the Cubic Spline," 
by M.J. Goldstein. 



Marvin J. Goldstein ^ 
Naval Underwater Systems Center 
New London, CT 06320 




Solve Algebraic Equatiqns 
'MATRIX 



^Available from originator only 
Telephone (203) 442-0771, ext. 24l5 



Unguage - iJSASI FORTRAN 
Hardware - CDC 3300/20K words 



Solves ti linear 'algebraic equations in n unknowns, using Cholesky*s method. 

\ Alan T. Massey ' Available from originator only 

\ . Naval Underwater?- Systems Center 

\ Newport, RI 02840 ^ Telephone (401) 841-4772 

<5r ' ^ 



Checks .lAogles 
TWOPI 



Unguage - FORTRAN^V 
Hardware - IBM 360-65/CDC 6600 



In j:he uffe of angles, this routine aeeXires that any angle remains' between 0* and 360* 

Robert Dennis Availably from originator only 
Center for Experiment Design and 

Data Analysis, NOAA/EDS' 

Washington, DC - 20235 ^ * Telephone (202) 634-7344 



Trigonometry Subroutines 
ASSUB, SAS, ASA 



language - FORTRAN 
Hardware - IBM 1800 



ASSUB calculates trig other side. Input: 1 angle, 2 sides. Output: Two possible sitie 
lengths; if either pr both returned sides are zero, these values are undefined* SAS calcu- 



lates ^other side. Input: 
other two sides. Input: 



Side, angle, side. 
Angle, side*, angle. 




Michael Moore 

Scripps Institution of Oceanography 
P.O. Box 1529 

Jolla, CA 92037 



Output : Length of other side. ASA calculates 
Output: Length of other two sides. 

Available from originator only 



Telephone (714) 452-4194 



Inter-Active Calculations 
DSOP/CALC 



Language - ALGOL 

■ Hardware - Burroughs 6700/6K words j 



Provides inter-active computing abilities (for persons with ,the occasional need to do numerical 
calculations involving small amounts of data. The user may address either the "definition 
level" or "evaluation level" of ten independent working spaces in which ,any number of expre- 
sions may be defined; The program can save the total working environment for later use. In 
put:^ Gei^eral arithmetic expressions defined in terms of alpha-numeric identifiers, system in- 
trinsic functions and previously defined expressions. An expression is evaluated by assigning 
values to the independent vatlables in either an identifier prompting mode or free-field input 
mode. ',1 - ^ 



W. Thomas Birtley i 
Deep Sfa Drilling Project 
Box 1529 '^^0 
La Jolla, CA 92Q»f> 



Available from originator only 



•Telephone i:714) 452-3526 

\ 
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DATA REDUCTION , EDITING, CONVERSION, INVENTORY, RETRIEVAL, 
AND SPECIAL INPUT-OUTPUT 

Thermometer Correction Language - FORTRAN IV ' 

TCPLO Hardware - XDS Sigma 7/12 ,-500 words/2 tape 

units/CalCom^ Plotter 

Plots thermometer correction curves and prints the calibration data for each thermometer. For- 
mulas used are from "On Formulas for Cgrrecting Reversing Thermometers," by F,K, Keyte, , 

* 

Mary Hunt ' Available from originator only 

Woods Hole Oceanographic Institution 

Woods Hole, MA 02543 Telephone (617) 548-1400 



Thermometer Correction, Depth Computation 
•HYDl 



Language - HP ASA Basic FORTRAN 

Hardware - HP 2100/HP 2116/12K words /Keyboard/ 

CalComp Plotter/Paper tape 

optional / 



Corrects thermometer readings and computes depth or pressure. Input: Station information, in- 
cluding thermometer readings, and thermometer calibrations. Output: Depth and corrected tem- 
perature for each station. 



Chris Polloni / 

Woods Hole Oceanographic Institution 
Woods. Hole,^ 02543 



Available from originator only 
Telephone (617) 548-1400 



pAreal Concentration 
INTEGRATE 



Unguage - FORTRAN IV 
Hardware - IBM 360/3676 bytes 



Performs integration of sainples taken at discrete, depths to produce areal concentrations. In- 
tegration i3 of form N[dn+l"*^n^ ^^^tl"'"'^!^^^^ where d » depth and A « values of a variable for 
each of N depths. Input: Data caras containing sample identification codes and depth values 
along with subptance to be integrated. An unlimited number of depths and variables may be in- 
tegrated. Output : Printed output includes sample identification codes, list of depths and 
variable values, a depth-weighted average for e^ch depth interval, and tie running sum; punched 
output includes identification cod^ and integration from si/rface to selected depths, "A Com- 
puter Program Package for Aquatic Ecplogists," by Paul J. Godfrey, Lois White, and Elizabeth 
Keokosky. ^ - 



Paul J. Godfrey 

Department of Natural Resources 
Cornell University, Fernow Hall 
Ithaca, NY 14850 



1|8 



Copy on file at NODC (listing, documentation) 



Telephone (607) 256-3120 



Unweighted Averages 
AVERAGE 



Unguage - FORTRAN IV 
Hardware - IBM 360/5824 bytes 



Calculates unweighted averages over depth; depths for which data are averaged may be con- 
trolled. Input: Data cards with sample identification codes, depth and variables to be aver- 
aged; if average is to be controlled by a variable such as thermocline depth, this must also 
be included. Output: Printed or punched averages of, £^everal variables in a form s imi lar to 
the input data, i,e,^ one variable after another on each card, thus suitable fo^/roelji pack- 
aged programs, *'A Computer Program Package for Aquatic Ecologists," by Paul J, Godfrey, Lois 
White, and Elizabeth Keokosky, 
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Paul J.« Godfrey ' Copy on file at KODC (listing, documentation) 

Department of Natural Resources 

, Cornell University, Fernow Hall * « 

Ithaca, NX. 14850 ' , > .Telephone (607*) 256-3liO 



Bathymetrlc Data Reduction Language - FORTRAN 

' Hardware - IBM 7074 

Proceaaes data gathered while navigating with any circular and/or hyperbolic system. Eight op- 
tions are available pertaining to position conversion, form of Input, data smoothing, special 
cosrections, and Interpolation of position-dependent values such as contour crossings. OS No. 
53559. ^ , . 

Data Systems Office Avallaljle from originator only 

U.S. Kaval pceanographlc Office , 
Washington, DC 20373 Telephone '(301^ 763-1449 



Julian Day Conversion , * * 
JDAYWK * 

Computes the date from the Julian day. 

• Paul Sabol 

Center for Experiment Design and 

Data Analysis,, l^OAA/EDS 
Washlng^ton; DC 20235 



Language - FOITRAN IV 
Hardware - IBM 360-65' 



Available from originator only 

* - / 

Telephone (202) 634-7344 



Julian Date Conversion Routines 
JULDAY, JULIAN, JULYAN, JULSEC, CESLUJ 



Language - FORTRAN IV 

Hardware - IBM 360/CDC 6600/PDP-ll 



Given the month (1-12), day, arid year, JULDAY returns the Julian Day. JULIAN calculates month 
(In 10-character words) and day, given the year and Julian date. JULYAN calculates month (digi- 
tal) and day from given year and Julian date. JULSEC yields Julian seconds from Julian day, 
hour, minute, and second. CESLUJ computes the Julian date, hour, minute, and second, given 
Julian seconds. 



Robert Denni^ 

Center for Experiment Design and 
Data Analysis, NOAA/HDS * 
Washington, DC 20235 / 



Available from originator only 



Teleph9ne (202) 634-7344 



Day of the Week 
NDAYWK. 



Language^ FORTRAN IV 
Hardware ^^BM 360-65 



This subroutine returns the day of the week for any date In the nineteenth or twentieth century. 
Modifications Include conversion of the function to a subroutine so Julian day can be extracted 
and addition of an array containing an alphanumeric description of th^ day. 



Paul Sabol 

Center for Experiment Design and 

Data Analysis, NOAA/EDS 
Washington, /DC 20235 



Available from originator only 



Telephone (202) 634-7344 



Date Calculation^ 
DAYWK, NWDAT, NXTD^j YSTDY 



Language - FORTRAN 
Hardware - IBM 1800 
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Given year (4 digits) and Julian Day (i-366), DAYWK produces* the day of the week (1-7^ Sun.- 
Sat.)» Given packed' date (bits 0-3 month, 4-8. day, 9-15 year), NWDAT produces following d^e, 
packed and unpacked* Given day, month, year, NXTDY return^ day, month, year of next day. Given 
packed date» YSTDY produce^ preceding date (packed)*. > ^ 

Michael Moore Available from originator only 
Scrlpps institution of Oceanography » 
P.O. Box 1529 

U Jolla, CA 92037 Telephone (714) 452-4194 



Julian &ay Subroutines Language - FORTRAN 

CLEJL, CUUL% Hardware - IBM 1800 

Both subroutines calculate Julian Day. Input formats vary. CLEJL format* 01 NoV. 70; CLJUL 

format, day (1-31), year (00-99), month (1-12). 

Michael Moore * Available from originator only 

Scripps Institution of Oceanography 
P.O. Box 1529 * 

La Jolla, CA 92037 Telephone (714) 452-4194 



Time Conversion Language - FORTRAN 

DTIME f ' , Hardware -^IBM 1800 

Calculates ho;irs, minutes, and seconds, given thousandths of hours. 

' Michael Moore Available from originator only 
Scripps Institution of Oceanography 
P.O. Box 1529 

La Jolla, CA 92037 Telephone (714) 452-41.94 



Current Meter Data Reducftion Language - FORTRAN IV 

Hardware - IBM 1800 

Converts data in the form of angular positions of the rotor and compass arcs from Braincon 
type 316 current meters into values 6f current speed and. directi!)^n, tilt direction, N-S and 
E-W current components and displacements in kilometers from any arbitrary origin. Data are 
output to linepr inter with column headings and magnetic tape without headings. Author - W«J 
Gould. . ' \ ^ 

National Institute of Oceanograpt^y Copy on file at ,N^DC (listing, documentation) 
Wormley, ()4d^lniing, Surrey 
United Kingdom 



Reduction and Display of Data Acquired Language - FORTRAN II ^ ^ 

at Sea ' . Hardware - IBM J.130/Disk/CalComp 30" plotted 

A system of ^programs (navigation, gravity, topography, magnetics) for the reduction, storage, 
and display of underway data acquired at sea. 4 lerge number of the programs utilize naviga- 
tion points together with raw digitized geophysical data presented as a time series, where the 
different data may be reild at unequal interv'*alS. Technical Report No. 1, by Manik Taiwan i, 
August 1969. 

Lamont-Doherty Geological Observa- Available 'from NTIS, Order No. AD. 693 293/LK, 
, tory ^ $10.00 paper copy, $2.25 microfiche. 

Columbia Universily ' 
Palisades, NY 10964 
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Uydrographlc Data Reduction 
TWO FIVE 



Language - FORTRAN 63 
Hardware - CDC 3600 



Processes raw data to obtain corrected depth, temperature, salinity, and oxygen, as follows: 
(1) from protected deep-sea reversing thermometer readings, obtains corrected in situ tempera- 
ture; (2) from unprotected deep-sea reversing thermometer readings, obtains the thermometric 
depth, corrected for gravity variations and for the mean density of the overlying water column 
in any ocean; (3) fits least- squares curves to wire length vs. (wire length minus thermometric 
depth) to determine the accepted depth; (A) calculates salinity from raw salinity readings; (5) 
calculates dissolved oxygen Concentrations from titrations. Report' (unpublished manuscript) by 
Norma Man tyl a I Oct. 1970. . 



Marine Life Research Group 
Scripps Institution of Oceanogtaphy 
P.O. Box 1529' ' ' 

La Jolla, CA 92037 



Copy on file at NODC (above report) 



Station Data Reduction 
SYNPP 



Language - FORTRAN II, FAP 

Hardware - IBM 709A-70AO DCS/25,335 words (main 
program), 2058 words (subroutines) 



Reduces data from raw shipboard observations. Corrects thermometers and computes' thermometric 
depths, wire an^le depths, salinities from bridge readings, oxygen values from titrations; then 
computes sigtna-t, oxygen saturation percent, atl3~"am)arent oxygen utilization. Technical Report 
No, 181 (M67-8), "Processing of Oce^graphl^ Stati^ Data: A Coordinated^ Conjputer-Compatible 
System," by Eugene E. Collias, Jan. 1968. 



Department of Oceanography 
UnivSirsity of Washington 
Seattle, WA 98105 



Available from NTIS, Order JIo. AD 670 A72/LK, 
$5.75 pa^er, $2.25 microfiche. 



Thermometer Correction 
TCHK2 



LanAiage - FORTRAN VI 
Harjware - IBM 1130 



Corrects deep-sea reversing thermometers, compute^ thermometric depths, hllows sfmrious values 
to be removed from L-Z table, smooths the L-Z tabl^, and punches smoothed depth and observed 
temperature and salinity and oxygen values onto cards in GODC format. Two other thermome£er 
correction programs are available: TCHKl i^ses the L/Z method; TCHK3 computes pressure, FRB^ 
^lanuscript report No. 1071 (unpublished manuscript)^, by c'.^. Collins, R.L.Kj Tripe and S.K. 
Wong, Dec. 1969. 



Pacific Biological Station 
Fisheries Research Board of Canada 
P. 0. Box 100 • ' 
Nanaimo, B. C. V9R 5K6 



Copy on file at NODC (above rl^oi^t) 



Read NODC Format Station Data 



READTAPE 
MASTER 
. ENVXR 
DETAIL ^ 



Language - FORTRAN IV 
Hardware - XDS Sigma 7 
I 

1,000 words, 
200 words 
118 words 
280 words 



Subprogram READTAPE reads, unpacks, and ieturns to the user NODC 'oceanographic station data 
records, one station at a time. Subprogram MASXER takes information from master record and re- 
turns the information to the calling progtaffl. Subprogram ENVIR ^akes information from t*lie first 
24 ch^racters^of master or-- observed detail record and returns the information to the calling 
program in usable form. Subprogram DETAIl\ takes the information f rom ^n observed detail record 
and returns to the calling program correctWalues for 'all variables and, suitable indicators for 
special conditions. Input to all subprograms: NODC station data on cards or tape. 
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Mary Hunt \ * Available from originator only 

Woods Hole Oceanographic Institution ^ 
Woods Hole, MA 02543 Telephone (617) 548-1400 



Reads NODC Station Data Tape 
EDIT 



Language 
Hardware 



FORTRAN IV 
IBM 360-65 



This subroutine reads a NODC station data tape (120 characters per record), checks the indica- 
tors in characters 81-120, sets the decimal points, then prints the master records, observed 
station data, and standard station data^for each station. See program CAPRICORN. 



Ruth McMath 

Department o£ Oceanography 
Texas ASM University 
College S^ tsn e ny ^ 77843 



Available lErom originator only 



elephone (713) 845;-7432 



Converts NODC Forma t^ Data to BNDO Format Language 
TRANSNODC Hardware 



FORTRAN IV ^ 
XDS SJ.gma 7/2 tape or disk units • 



This system prepares data in NODC format for introduction into the Poseidon system; header data' 
are listed, stations are selected and separated into cruises with inventories at the cruise 
level, and output is provided in BNDO format. Report, "Transcodage des donnees NODCV 



Mr. Stanislas, 'BNDCi 

Centre National pour 1 '^Exploitation 

des Oceans 
Boite Postale 337 
29273- Brest Cedex, French 



Copy on file at NODC , , 



Telephone 80.46.50, telex 94-627 



Converts Data to BNDO Format 
TRANS COD 



Language - FORTRAN IV 
.Hardware - XDS Sigma 7/2^tape or disk units 



This system prepares data in out-of-house formats for introduction into the Poseidon system; 
header data are listed, stations are selected and se{&rated into cruises with inventories at 
the'truise level, anfl output^ is provided in BNDO format. Input formats are those of ORSTOM, 
SHOM, etc. ' . 



Mr. Stanislas, BNDO 

Centre Natioi^al pour 1' Exploitation 

des Oceans 
Bolte Postale 337 
29237 Brest Cedex, France 



Copy on file at 



NODC 
s 



Telephone 80. 46. 50, •.telex 94-627 



Reads BNDO Format Data Language - FORTRAN IV 

LSTA 1142 Hardware - XDS Si^a 7 

This subroutine is used to read easily the physical, chemical, and biological data in the com- 
plex and very flexible BNDO format. Data may \>e on disk, tape, or cards. After the call, the 
station is stored in a common area. 

Mr. Stanislas, BNDO * Copy on file at NODC ' 

Centre National pour V Exploitation • , , 

des Oceans 
Boitfe Postale 337 

29273 Brest Cedex, France Teleph9ne 80.46.50, telex 94-627 
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Editing for WHOI format 
* SCRUB 



Unguage FORTRAN Iv-H 
Hardware - XDS Sigma 7 



Provides several methods by which data stored in WHOI standard format may be edited and tested. 
Output is the corrected version of the data^ on 9-track tape. See HISTQ format reference. 

Richard E, Payne , Available from originator only 

Woods Hole Oceanographicjlnstitution 

Woods Hole, MA0254Tr''^ Telephone (617) 548-1400 



Mailing Labelk - Language - ALGOL 

MAILER ' \ t Hardware - Burroughs 6700/16K H^rds 

Generates 4-:iip peel-off mailing labels on the line printer. Optioi^: ^ulk mail handling, 
sortfngJ>yuser defined key, rejection of records by user defined key. Input: Addresses on 
punched cards; privileged information may be included which is not printed. 



Peter B, Woodbury 

Deep Sea Drilling Project 

Box 1529 

La Jolla, CA 92037 ' 



Available f^om originator only 



Telephone (714) 452-3526 



Fortran Access to Scientific Data Language - FORTRAN II, CODAP-1 

FASD \^ Hardware - CDC 1604/4850 48 bit words 

Designed to be used a subroutine, FASD accomplishes the dual purpose of converting an exist- 
ing data base to FASD format as well as providing a convenient unpack data handling tool. For" 
user convenience, I/O tape status checking, bit shifting, data bias manlpulation^fitc, , have 
been absorbed by the package so that raw dajta can be made Immediately available from the FASD 
pack; or raw data can be packed into the FASD format by a single instruction. Available func- 
tions are fixed or floating point READ, WRITE, READ IDENT only, and SKIP, The -present data 
base is NODC station data. Access time is 44 seconds for 1,000 random length observations, A 
table of pointers is maintained to insure accurate transmission of observation data. The FASD 
format provides an extremely tight pack of thermal structure data where the observation format 
consists of an identification (parameters such as position, metering/leyice, station number, 
date time group) and a temperature profile. The' FASD format is noj;?computer word length ori- 
ented. Input; (1) Raw data to be packed into the FASD format, or (2) magnetic tape containing 
data in the FASD format. Output; If input (1), a magnetic tape containing FASD packed data; 
f input' (2) , raw data are output to the "driving program, ' . ^ 



Alan W, Church, Code 80 

Fleet Numerical Weather Central 

Monterey, CA 93940 



Copy on file at NODC (listing) 



Reproduce and Serialize Deck 
DUPE 



Language 
Hardware 



FORTRAN IV 
CDC 6600 



Reproduces, lists, and serializes source or data decks. Program options allow reproduction 
without serialization and up to 999 reproductions and listings of the input deck. Input may be 
any standard FORTRAN or alphanumeric punch deck. 



Jack Foreman 

Center for Experiment Design and 

Data Analysis, NOAAVEDS 
Washington, DC 20235 



Available from originator only 



Telephone (202) 634-7344 



Flags Suspicious Data Values 
EDITQ 



Language - FORTRAN IV 
Hardware - IBM 360-65 



148 



158 



EDZTQ l8 designed as a computationally fast and efficient means of flagging suspiciouoly large 
^or aoJill values in a series of data. The data series is fitted with a least^aquarea fit 
straight line under the assumption that the programer limits the length of the data series to 
regions sufficiently small so that the straight line is locally a good approximation to the 
trend. ^ 

Donald Ache son Available from originator only . 

Center for Experiment Design and 

Data Analysis, NOAA/EDS 
Washington, DC^ 20235 Telephone (202) 634-7266 



Format Free Input Subroutine Language - FORTRAN 

QREAD ^ • Hardware - IBM 1800 

A foifmat free input subroutine for cards or other sources* Input: Jnteger array with first ^ 

eight variables set to determine input. v / ' 

\ > ' " ^ 

Michael Moore ^ Available from originator only 
Scripps Inatitution of Oceanography 
P.O. Box 1529 

La Jolla, CA^ -92037 Telephone (714) 452-4194 



Meters vs. Fathoms ^ I Language - FORTRAN ^ 

MATBL . Hardware - IBM 1800/16K words 

Produces table of corrected depths In meters vs. raw fathoms. 

Michael Moore Available from originator only 

Scripps Institution of pceanography • ' . ' . • 

P.O. Box irai . ' ^ " ' 

La Jolla, CA 92«a7 Telephone (714) 452-4194 ^ . ^ * 



A File-^Independent, Generalized Application Lan^i^e - FORTRAN IV-G, Assembler, PL/l-F 
System, GAS * Hardware 360-65 

Development of GAS was based on the following premises: (1) most files of oceanographic data 
^consist of identification fields (location, date, etc.), an independent variable (perhaps water 
dep£h or time), and one or more dependent variables (e.g., water temperature or dissolved ^xyr 
gen); (2) a system could be designed to tre^t «these^ items tiniformly, i.«., instead of tailoring 
progpuns t6 a discrete data file, the basic units could be extracted and transmitted to a gen- 
eralized applications system from whicH(^ny products could be derived* As a result » GAS has 

number of applications programs, rather thaA a theoretical maximum of "n" times the number 
of files. Only one extra program was necessary V— the conversion module ,vhidh provides a link 
between the various data files and the GAS syst^l. The system of applications programs is 
tailored to an intermediate file created by this \ conversion module. Version 1 of the conver- 
sion module can access the files ^or N^sen casts, mechanical bathythermographs (BX) » and ex- 
pendable bathythermographs , (XBT) ; soon to be added ar^ the continuous salinity-temperature- 
depth (SXD) file, ICES ocean surface reference file, and data from cooperative oceanographic 
research pr6jects. « . - ^ 
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Following, are descriptions of {Hdividual. programs and subroutines: 

GASDIPBS reads the NODG GAS fila and, on one pass of the data, produced any one of three differ- 
ent printouts, depe^nding on the control card entry. Author - Gary Keull (44k, FORTRAN IVcG) . 

G ASS AMPC prints the *f irst three and the last basic master records pnly of 'a GAS formatted $iata 
sfet «nd ^ves a reqordVount. Author. - *Gary Keull (38K, FORTRAN IV-G) . ^ 

GASEINV prints out a^8^°8NP^^9 inv.entory of GAS data by ten-degree square, one-degree square, 
and mpnth, and gives counts of 'all onp degrees and ten ^degrees and a total number of stations 
prpcessed.^ Author - Gary Keull (40K, FORTRAN IV-GJ . 

GASCCI reads GAS records and-pr^ints out country code, reference identification number, and from 
aild to consec numbers. Also gives "'a .total station count. Author ~|pary Keull (40K, FORTRAN 

iv-G). • . » ; * . ^ ^ ^ 

"X^ASVAERT re^sLsL^he output of, the program GA6VASUM and prints vertical array summar'ies. Author - 
Walter Morawski (48K, FpRTR^ IV-G) . * , 

GVAREFRM takes the GAS vertical array summary prpgrams sunimed records and produces a 110 char- 
acter output record. Author - Gary Ke^ll (30K,' FORTRAN ^^"^^'^^^^ ^ ^ 

GASXHERM computes the depth, of the therm6cHne and mixed layer if^eslred. Also outputs a tem- 
perature gradient analysis. '. Author - Walter Morawski (40K,^ Assemble!?) . 

GASMASK reads the basic and supplementary master information and produces a detailed printout 
of master information 'and headings for each station. Author -Judy Yavner (lOOK, PL/l-F), 

ipAJA reads GAS records and transfers all the fields present into a common area in core of the 
filing program. With each call ^o this subroutine, all master and independent-dependent pa- 
rameter pairs are transferred to the common area. Author - Walter Morawski (7^8 bytes (object 
form), Assfem^er). ^ . - Alt 

Subroutine 'CANADA computes Canadian ten-degrefe, five-degree, two-degree, one-degree, and quar- 
ter-degree squares from latitude and longitude degrees and tfiinutes, Autjiors - Walter Morawski 
and Gary Keull (5K, FORTRAN IV-G), , 

Subroutine CREATE creates GAS records ^hen called from a user's program, Authoi: - Walter ^ 
Morawski (630 bytes (object form). Assembler). 

GAS accesses the major files of NODC and creates records compatible with the GAS system. Au-^ 
thor - Walter Morawski (9!6K, FORTRAN IV-G). ^ ' - 

MONT^SO selects all stations with a month entry that corresponds to^ particular control card 
' entry. Author - Gary Keull (44K, Assembler), * >^ 

CHEM80 selects all stations with a non-zero chemistry percentage that corresponds to a control 
"^card entry. Author - Gary Keull (44K, Assembler), ^ 

DEPTH80 selects all stations with a maximum depth gre4;,gj^^an the control card entry. Au- 
thor - Gary Keull (24K, Assembler), 




*LATLON80 selects an area based on latitude and longitude degre\js and minutes entered in a con- 
^ trol card. Author - Gary Keull (44K, Assembler)-, 

GAsbRDER selects certain GAS records (specified by truise and cotisec numbers) fpom an input 
tape and inserts a sort-o3;der number in an unused area. The output, when sorted on this order 
number, will be in whatever order the user has specified on the control cards. Author - Walter 
Morawski (38K, Assembler) ^ 

GASVASUM reads GAS type 1,2, or 3 records and produces three output GAS format records that 
confain a. vertical array summary. (DepCij, Max, Avg, Ml^, Number, Stand^ird Deviation), Summa- 
ries are at>NODC standard levels, -five meter intervals, or ten meter intervals* depending on 
the input,'' Author - Walter Morawski (86K, FORTRAN IV-G), 

>.-:^ " ' * , 
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ALTER6AS reads a. primary GAS file and finds matches to these records in an au^diliary GAS file. 
Before outputting, records may be^ altered and a single file of records may be altered in any 
way, Autfi8t' - Walter Morawski (90K, FORTKAN IV-G) . 



Author 



GASB accesses several major files at NODC and creates records -compatible with GAS. 
falter Morawski (90K, FORTRAN lVr<?^th Assembler input-output routines). 

NODCSQ takes the latitude and longitude fields from the GAS master fields and computes*" the NODC 
ten-degree 9 five-degree » two -degree, one- degree, quarter -degree, and six -minute squares and 
replaces them into tiie master field arrays. Author - Walter Morawski (2K, FORTRAN I wJ) . 

NAMES prints the names of the dependent and independent parameters of the -GAS system. At pres- 
ent, there are 29 names which may be printed all at once or singularly; tMs subroutine is used 
in program GASDIPBS for output type 2 listings. Author - Gary Keull (28K, ^ORTRAN IV-G) . 



SD2GAS 
GAS 
GAS 



accesses the NODC SD2 (station data 2^ file, . selects upon various crl^teria, and\outputs 



AH5: 



records of various types; user may at same time output regular SD2 records for use py non- 
programs. The following options are available : / 

A. Standard and/or observed depths only will be returned; 

B. If a>HLLue^s missing at a particular level, it may be interpolated; 

C. Doubtful and questionable data may o^ may not be Included; 

D. Chemistry Values may be shifted to NODC prescribed nearest standard levels. 
Output formats available: * ^ 

-d Basic GAS master fields^' 

-2 Basic GAS master fields and all supplementary fields present; ^ 
Q. Basic^GAS master fields and one independent-dep^dent parameter pair; 
Basic- GAS master fields and parameter pairs at five-meter intervals; 

2 Basic GAS master fields and p^ameter pairs at ten-meter intervals; 

3 Basic GAS master fields and parameter pairs at Nansen levels; 

4 Basic GAS master fields and parameter pairs wheoevef they appeared in that particu- 

lar record; ^ 
'3 Basic GAS m^ter fields and parameter pairs at depth intervals specified by the user. 
Author - Walter, Morawski (96K, FORTRAN IV-G) . ' 

X^ASSCUDS. summarizes SCUDS (surface current-ship drift) records by area, ten-degree, five-degree 
"two* degree, one^^egree, quarter degree, one tenth- degree squares, year, month, or day. Outputs 
produced are optional. Variations include two print, formats or two tape formats. Parameters 
incHide all geographic informatl^on, month, year, 4ay, north an;! east components, resultant ^ ^ 
speed and directi'^, total, observations, number of -ealma, max and mean speeds, and standard 

'deviation. Also available is a distribution of individual observations by speed and direction. 

* Authors - Gary Keull and Walter, Morawski (80K, FORTRAN IV-G), 

>«» 

Oceanographic Services Branch Copy on file at NODC (tape, documentation) 

National Oceanographic Data "Center « 

NOAA/EDS 

^ " Washington, DC 20235 '^'^Tei^Lpl) one (-202) 634-7A39 ' 



Other NODC Programs 
STD Data: 



Hardware - IBM 360-65 



STDI^TV retrieves records from the STD geofile; sections are madd[ on the basis of optional se- 
lect fields; w4.th one exception, these select fields are located in the master records. Au^ 
l»p: - Robert Van* Wie (Assembler). 

Station EfSata:' ^ - ^ * 

SD2T0SD1 converts station data from SD2 variable length record tp SDl 80 or 83 byte records. 
Author - Walter Morawski (36K bytes, AssemblerjW ' * 



SDCHAR processes a series of 83 byte records to construct a onecrecord-per-station file of var- 



iable length character records. Author 



-•Robert Van Wle (92K bvtes, PL/1). 
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SDBRT2 produces an edlted^listlng of the SD2 variable length record or data In the 80 byte 
format. Author - Sally Uelmerdlnger (36K bytes, Assembler). 

SDSELECT Elects SDl records by Marsden square, one-degree square, or card type. Author - 
Michael ^anagan (24K bytes. Assembler), 

SD2HSTCT counts the number of SD2 records and prints the first 30 records and the last x:£cord. 
Author - EJ^er Freeman (50K bytes. Assembler), 

SD2SAMF aelects five records from SD2 lape; used to give users a sample of SD2 data. Author - 
Walter Morawskl (3^ bytes. Assembler)* 

SDGEOIV reads SD2 master file and summarizes the number of stations by month, year, one-degree 
square, flve-<legree square, and modified Canadian (ten-degree) square; best results are ob- 
tained when running against a 'g^aiSgraphlcally sorted file. Author - Michael Flanagan (14K bytes, 

■7 ' S \ 

MAKE120 converts axTSO or 83 byte record from the NODC station data geoflle to the 120 c^unrac- 
ter zone-edlt format for tfie IBM 7074, Author - Walter Morawskl (36K bytes. Assembler). 

DEPTH selects full atatlon data records with depths ^greater than a given hundred*meter Inter- 
val. Author - J. Gordon (17K by):es. Assembler), 

^ CRUCON reads either the SD2 file or SD2 master file and prints the NODC cruise consec number 
inventory. Author - Walter Morawskl (36K bytes. Assembler), i» 

CODCCONV converts station data In the format of the Marine Environmental Data Service (formerly 
CODC - Canadian Oceanographlc Data Center) to the NODC format, A table of control cards Is 
required to convert the Canadian cruise reference numbers to the NODC system. Author - Walter 
Morawskl (24K byteff. Assembler), 

SUPERSEL selects from the SD2 geoflle)^ master file by Canadian (ten-degree) square. Input 
file is sorted in Canadian square order; output is identical in f orlaat , but contains only the 
data from the desired Canadian squares. Author - Walter Morawskl (36K bytea» Assembler-) • 

SDPASS retrieves SD2 records from either the cruise-sorted file, the geosorted file, or the 
master file. Output is on one of four formats: (1)^ the original variable length record; (2) 
a .series of . 80 byte f Ixed-lengtli record?; (3) 105' byte fixed-length records ; r^2J^ undefined^ 
records. Author - Robert Vat^ Wle (Assembler), 

Expendable Bathythermograph Data : » . * 

XORDER selects XBT data by cruise consec number. Inserts a sort number in aiyunused space; the 
output, when sorted on this number, will be in whatever order was specif i-etTDy the user on^on- 
trol cards. Author - Walter Morawskl (36K bytes. Assembler), — 




XBEVALU compares production with standard sample XBT's; sort^ input by reference nun^er and^ 
consec number before testing and evaluation; prints evaluation statistics, 'Author - Michael 
Flanagan (PL/1), * ^ * ' 

XBTQiSdUT enables the user to choose the type of XBT output and the mode of output, Autho^ - 
Philip Hadsell (60K bytes, FORTRAlJ IV-G), ^ . - 

XBCONV converts data from seven-fcrack tapes in old NODC XBT format to new NODC format suitable* 
for nine-track tape. Input: Contractop^ocessed XBT's, Output on disk. Author - Pearl " 
Johnson (?6K bytes, PL/1-4)^ 

XBTCOtJML gives a station count of XBT data from either, the cruise file or the geoflle. Au- 
thor -Elmer Freeman (Assembler), - 

^ * 

XBFNWC^ run after XBFNWSUM, reads ^control cards providing c?^uise and other master Information 
and, for each cruise, converts (or deletes) Fleet NiWerical Weather Central XBT data to the 
NODC XBT tape record format. Author - Judy Yavner (50K bytes, PL/1), • 




XBFNWSUM provides a ^summary of the cruises contained on a file of XBT data from Fleet Numer-* 
ican Weather Central. Author - Judy Yavner (22K bytes, PL/1). ^ 

XBSELECT retrieves from the* XBT data file by inputting <he desired FORTRAN "if" statements. 
Author - Philip Hadsell (9K bytes, FORTRAN IVH3) . 

RBTXBT retrieves records ^j?om the XBT cr>iee-^le or the XBT geofile. Author - Robert Van Wie 
(Assembler) . ' ^ 

XBTCONV converts the XBT binary-character formatted" records to an undefined all~character rec- 
ord with'a maximum length ot 2^00 bytes; primarilj^ used to satisfy requests for XBT data on 
seven-track tape, AuthoV Sally Heimerdinger (650 bytes plus 2 times the sum of the buffer 
lengths 9 Assembler). ^ 

XBMSINV, using the subroutine XBREAD, reads cruise-ordered XBT data and produces a summary of 
each cruise (one line per cruise), indicating the NODC cruise number, the number of observa- 
tions per cruise, the beginning and ending dates, the NODC ship code, and the originator's 
cruise number. Author - Philip Hadsell (FORTRAN). ^ 

XBGEOSUM prints a summary of the number of observations within given seasons, one-degree 
squares, ten-degree ^qtj^es, and qua,drants. Author - Philip Hadsell (80K bytes, FORTRAN IV-G) , 

Mechanical Bathythermograph Data : " , • 

RET^J^etrievjes records from the BT cruise file or the BT geofile. Author - Robert Van Mie 
(Assembler) . 

BTLISTC provides^edited printout with headings of the NODC geographically-sorted bathythermo- 
graph file. Author - Michael Flanagan (2600 bytes. Assembler). 

BTGEOIV reads the battgrthermograph file, summarizes the number of stations by month, year, one- 
degree square, five-degree square, and Marsden square. Author - Charlotte Sparks (14K bytes, ^ 
?h/l)J 

Other NODC programs ; \ ^ 

SCHNINE prints data from Hl-9 surface (^rrent file; produces simultaneously any one of the fol- 
lowing combinations: ^1) edited listingyof the entire file; (2) edited listing and punched 
cards, both for the entire file; or (3) .edited listihg, unedited listing, and magnetic tape,, 
all for only the first 100 records. AuthoV - Rosa T, Washington (Less than 56K bytes, PL/1). 

SCMU^TI outputs surface current data in any one of the following combinations: ^(1) edited 
listing of the entire file; (2) edited listingNand punched cards for the entire file; Or (3) 
edited listing, unedited listing, and magnetic \ape, all for only the first 100 records. Au- 
thor - Rosa T. Washington (72K bytes, PL/1), ' ' 

DRYLAND re^ds a sequential tape file and identifies any one- degree square which is completely 
on land. Author - Robert Van Wie (30K bytes, PL/1). ' ^ 

CANWMO computes a WMO Square, given a Modified Canadian square. Requires subroutines GRIDSQ, 
TENSQ, and WMO. Author - Robert Van'Wie (FORTRAN). 

Oceanographic Services Branch • Copy on file at NODC 

National Oceanographic Data Center 
EDS/NOAA * 

Washington, DC 20235 ^ - Telephone (202) 634-7439 ' ; 



Reformatted Station Output ' Language FORTRAN 

IBM 1 . Hardware - IBM 370 

Outputs formatted hydrographic and nutrient chemical data by station; input is NOAA format raw 
data. Author - Stephen A. Macko. 
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Ira Cy Darling Center (Marine Laboratory)^ v 
University of Maine at Orono \ • 

Walpole, ME 04573 Telephone (207) 563-^3146 , 
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Ql. Summary date 



Yr. Mo. Day 



04. Software date 



Yr. Mo. Day 



02. Summary prepared by (Name and Phone) 



05. Software title 



06. Short title 



'. Pr^p^lng 



03. Summary action 

New Replacement Deletion 

□ ■ □ □ 

Previous Internal Software ID 



07. Internal Software ID 



03. Software type* 

Automattd Data 
^ System 

^ Computer Program 
^ Subroutine/ Module 



09, 



nfiode 



Q Interactive 
Q Combination 



General 



Application area 



Computer Systems 
Support/ Utility 
Scientific/ Engineering 
Bibliographic/Textual 



□ 
□ 



Marmgement/ 
Business 
process ControJ 
Other 



Specific 



11. Submitting Of]^nizatiotn and address 



12. Technical contact(s) and phone 



13. Narrative 



14. Keywords 



15. .Computer manuf r and model 


16. Computer operating system 


17. Programing language(s} 


IB. Number of source program state* 
ments 


19. Computer memory requirements 


20. Tape drives 
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21. Disk/Drum units 


22. Terminals ,^ 



23. Other operational requirements 



24. Software availability 




25. Documentation availability 




Available Limited 


In-house only 


Available Inadequate ^ 


In-house only 


> □ 


□ 


□ □ 
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INSTRUCTIONS ' ' 

01. Summtiy 0«tt. Enter date summary prepared. Us« Year, Month, Day format'. YYMMDD. 

02. Sumnwy Prtparvd By. Enter name and phone number (including area code) of individual who prepared this summary. 

03. Sumnwiy Action. Mark the appropriate box for new summary, replacement summary oi deletion of summary, if this software summary is a replace- 
ment. enter under "Previous Internal Software ID" the Internal software identification as leported in item 07 of the onginal summary, and enter the 

^ Internal software Identification In Item 07 of this form, complete all other hems as foi a new summary. lf a software summary i$ to |>e deleted, 

enter under "Previous Internal Software? ID'* the internal software identification as leported in item 07 of the original summary, comolete only items 
^ 01, 02. 03 and n on this form. ; » ' j 

04. Software Date. Enter date software was completed or last updated. Use Year, Month, Day format: YYMMDD. 

05. Software TKte. Make title as descriptive as possible. 

06. Short TItJe. (Optional) Enter comnwnly used abbreviation or acronym which identifies the software* 

07. Internal Software la Enter a unique identification number or code. V 

OS. Software Type. Mark the appropriate box for an Automated DaU System (set o,f computer programs^, Computer Program, or Subroutine/ Module, 
whichever best describes the software. 

09. Processing Mode. Mark the appropriate box for an {tractive. Batch, or Combination mode, whichever best describes the software. 

10. Application Area. '6 

Oeneral: Mark the appropriate box which best describes the general area of application from among: 

Computer Systems Support/ Utility ^ Process Control . 

• Mahagement/Buslness BIbllographlc/Textual 
Scientific/Engineering Other 

Specific: Specify the sub-area of application, eg "COBOL optimizer' if the general area is Cqfnputer Systems Support/ Utility 'Payroll" if the 
general area fs "Management/Business"; etc. Elaborate here rf the general area is'"Other." 

11. Submitting OrganUation and Address. Identify the organ.zatjon responsible for the software as completely as possible, to the Branch or Division level 
but including Agency, Department (Bureau/Administration), Service, Corporation, Commission, or Counfil. Fill m complete mailing address mcludlna 
maH code, street fddress, city, state, and ZIP code. ^ ^ " > m 

12. Technical Contact(s) and Phone: Enter p€rson(s) or office(s) to be contacted for technical information on subject matter and/ or operational aspects 
of software. Include telephone area code. Provide organization name and mailing address, if different from that in item 11. 

I3c Narrative. Describe concisely the problem addressed and methods of solution. Include significant factors such as special operating system modlfl^ 
cations, security concerns, relationships to other software, input arid output media, virtual memory requirements, and unique hardware features 
Cite references, If appropriate: \ . 

^ 14. Keywords. Ust significant words or phrases which reflect the functionsrapplications and features of the software. Separate entries with semicolons. 

15. Computer Manufacturer and Model. Identify mainframe computer(s) on which software is operational. 

16, Computer Operating System. Enter name, number, and release wndei wh.ch softwate is operating. Identify enhancements in the Narrative (item 13), 

17 Programing Language(s). Identify the language(s) in which the softwaie is^ written, including veision, e.g., ANSi COBOL, FORTRAN V, SIMSCRIPT 11.5, 
SLEUTH II. 

18. Nun^ber of Source Program Statements. Include statements in this software, separate macros, called subroutines, etc. 

19. Computer Memory Requirements. Enter minimum .nteinal memory necessary to execute software, exclusive of memory required for the operatli 
system. Specify words, bytes, characters, etc., and number of bits per unit. Identify virtual memory requirements in the Narcative (item 13). 

* 20. Tape Drives, identify number needed to operate software. Specify, if critical, manufacturer, model, tracks, recording density, etc. 

^1. Disk/Drum Units, identify number and size (in same units as "Memory'' — item 19) needed to operate software. Specify, if critical manufacturer 
mojiel, etc. 

22. Terminals. Identify number of terminals required. Specify, if critical, type, speed, character set, screen/line size, etc. 

23 Other Operational Requirements. Identify peripheral dfevices, support softwaie, oi lelated equipment not indicated above, e.g., optical character devices 
facsimile, compute nout put microfilm, graphic plotters. ^ ' 

24. Software Availability. Mark the appropr.ate box which best descubes the suftwaie availability from among. Available to the Public, Limited Availability 
(e g.' for government use only), and For In house Use Only. If the software is "Available ', include a mail or phone contact point, as well as the price 
and form in which the software is available, if possiJble. 

25. Documentation Availability. Mark the appropriate box which best desci.bes the documentation availability from among; Available to the Public, In- 
adequate for Distribution, and For In house Use Only. If documentation is Available ', include a mail or phone contact pojnt, as well as the price and 
form In which the documentation is available, if possible. If documentation is presently Inadeqtate , show the expected availability date. 

« 

26. For Submitting Organization Use, This- area is provided for the use of the organization submitting this summary. It may contain any information 
deemed useful for internal operation. 



<|U.S. GOVERNMENT PRINTING OFFICEi 1976-21 0-801 /272'*' 



ERLC 



237 



